How to delete a folder using the vbs script?

I write a vbs script  to delete a folder OnLastProcessExit:

-

Function OnLastProcessExit

Set FSO = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("Wscript.Shell")

AppPath = WshShell.SpecialFolders("AppData") //Get the paht of the "Application Data"

FinalPath= AppPath & "\Thinstall\myapp"

FSO.DeleteFolder FinalPath,force

End Function

-

And in the "Package.ini":

I have set that: SandboxName=myapp, and left the SandboxPaht default

But after I build my thinstalled app, run and exit it, then, there is a scritp error(Microsoft VBScript Runtime error), and the description is that: can not find the path!

What's the porblem?

Please give me some help, Thank you...