Ouput a list of files in a folder

dc403 · 2014-01-02T10:39:03.000Z

Description

Creates a list of all files in a folder

Source Code

On Error Resume Next  

Dim fso, folder, files, NewsFile,sFolder    
Set fso = CreateObject("Scripting.FileSystemObject")  

'Specify folder path here
sFolder = "C:\TEMP"

If sFolder = "" 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