Hey, i would like to enchance it by providing a dialog box. However, i failed to make it work. Care to point me on the right direction?
Quote:
On Error Resume Next
Dim fso, folder, files, NewFile, sfolder, path
path = InputBox ("Please write your path")
sFolder = "& path &"
Set fso = CreateObject("Scripting.FileSystemObject")
If sFolder = null Then
Wscript.Echo "No Folder parameter was passed"
Wscript.Quit
End If
Set NewFile = fso.CreateTextFile(sFolder&"\Filelist.txt", True)
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files
For each folderIdx In files
NewFile.WriteLine(folderIdx.Name)
Next
NewFile.close