I need to delete the parent folder that the vbs script is in. For example, if the vbs script is in the folder "New", I need to delete the folder with everything in it using the script.

No guarantee that this would work because the script will be in use, but if it does work, this would do it:

Dim FSO
Dim FolderPath

Set FSO = CreateObject("Scripting.FileSystemObject")
FolderPath = FSO.GetParentFolderName(WScript.ScriptFullName)
FSO.DeleteFolder FolderPath, True
Set FSO = Nothing

No guarantee that this would work because the script will be in use, but if it does work, this would do it:

Dim FSO
Dim FolderPath

Set FSO = CreateObject("Scripting.FileSystemObject")
FolderPath = FSO.GetParentFolderName(WScript.ScriptFullName)
FSO.DeleteFolder FolderPath, True
Set FSO = Nothing

Is there a way the script can be stored in a temporary location just before execution, so that the folder is not locked while its execution?

Do you think batch commands can do it?

Edited August 28, 200817 yr by srk999

As stated above the following will work:

Set oFS = CreateObject("Scripting.FileSystemObject")
MyParent = oFS.GetParentFolderName(WScript.ScriptFullName)
oFS.DeleteFolder MyParent, True

Just make the bottom line the last one in your VBScript.

The following batch file will work fine too:

ntscript.cmd

@Set "C_=X:\MyDir\New\some.vbs"
@For %%# In (%C_%) Do @Set "P_=%%~dp#"&@%C_%&&@Rd/s/q "%P_%"

If you wish you could run your vbs using '@cscript //nologo %C_%' too!