File List

[richf6]

I need to list all the files in a folder. I need file name and extension.

Would appreciate any help. :-D

 

[mapman04]

Here's a script that will write the file name and extension to a text file.

==========================

Dim fso,fol,fil,strTitle,flB,cf1,fn1,flC,flD,flE,flF,flG,flH,oShell,flA

Set fso = Wscript.CreateObject("Scripting.FileSystemObject&quot
Set oShell = WScript.CreateObject ("WSCript.shell&quot

strTitle = "File Listing"

Set fol = fso.GetFolder("F:\Data&quot
Set fil = fol.Files

Set cf1 = fso.CreateTextFile("F:\Data\FileList.txt",True)
cf1.WriteLine(strTitle)
cf1.Writeline(Now())
cf1.WriteLine(" &quot

fn1 = 1

For Each flA in fil

cf1.WriteLine("File No. " & fn1 & " " & flA.Name)
fn1 = fn1 + 1

Next

cf1.WriteLine("Process finished at: " & Time())
cf1.WriteLine(" &quot
cf1.Writeline(Now())
cf1.Close

oShell.Popup "Process Complete", 6, strTitle, vbInformation

WScript.quit