Attempting to delete folder - receiving error

[kdjonesmtb2]

Receiving the following error:

Path not found

Line (681): "objFSO.DeleteFolder strFolderPath, True".


If objRadioButton3.checked then
msgbox "You have selected the option to delete the files in the archive"



Dim Input5
Input5 = InputBox("Input Archive Folder Name to delete")
MsgBox ("You entered: " & Input5)



Dim strFolderPath

strFolderPath= "\\ikanas267\Documents\kgittensjones\My Documents\QTP 834\" & Input5 &"\"

msgbox(strFolderPath)'string is populated with path




Dim objFSO
Set objFSO = CreateObject ("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolderPath) Then
objFSO.DeleteFolder strFolderPath, True
End If
Set objFSO = Nothing


End if

 

[Geates]

all parent folders must exist.

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[guitarzan]

Actually, it's the opposite of the problem you had the other day with "MoveFile". In this case, the folder you are deleting with DeleteFolder cannot have a trailing backslash.

So, leave the trailing backslash off. When you need it (like when using MoveFile), just append a "\" to the end.