Code: On Error Resume Next Const WINDOW_HANDLE = 0 Const BIF_EDITBOX = &H10 Const BIF_NONEWFOLDER = &H0200 Const BIF_RETURNONLYFSDIRS = &H1 Set objShell = CreateObject('Shell.Application') Set wshShell = CreateObject('WScript.Shell') Set objFSO = CreateObject('Scripting.FileSystemObject') '**Browse For Folder To Be Processed strPrompt = 'Please select the folder to process. Ultrasurf 13.01 Free Download For Windows 8 there. ' Code: On Error Resume Next Const WINDOW_HANDLE = 0 Const BIF_EDITBOX = &H10 Const BIF_NONEWFOLDER = &H0200 Const BIF_RETURNONLYFSDIRS = &H1 Set objShell = CreateObject('Shell.Application') Set wshShell = CreateObject('WScript.Shell') Set objFSO = CreateObject('Scripting.FileSystemObject') '**Browse For Folder To Be Processed strPrompt = 'Please select the folder to process.' IntOptions = BIF_RETURNONLYFSDIRS + BIF_NONEWFOLDER + BIF_EDITBOX strTargetPath = wshShell.SpecialFolders('MyDocuments') strFolderPath = Browse4Folder(strPrompt, intOptions, strTargetPath) Set objNewFile = objFSO.CreateTextFile(strFolderPath & ' filelist.txt', True) Set objFolder = objFSO.GetFolder(strFolderPath) ' CHANGE STARTS HERE: Set objColFolders = objFolder.Folders For Each tfolder In objColFolders objNewFile.WriteLine(tfolder. De Super Mario Advance 4 Gba Rom Coolrom Ps2. Name) Next ' CHANGE DONE. ObjNewFile.Close '**Browse4Folder Function Function Browse4Folder(strPrompt, intOptions, strRoot) Dim objFolder, objFolderItem On Error Resume Next Set objFolder = objShell.BrowseForFolder(0, strPrompt, intOptions, strRoot) If (objFolder Is Nothing) Then Wscript.Quit End If Set objFolderItem = objFolder.Self Browse4Folder = objFolderItem.Path Set objFolderItem = Nothing Set objFolder = Nothing End Function. This is definitley a great example.