The following code illustrates the use of the
Files property:
JScript
function ShowFolderFileList(folderspec)
{
var fso, f, fc, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
fc = new Enumerator(f.files);
s = "";
for (; !fc.atEnd(); fc.moveNext())
{
s += fc.item();
s += "<br>";
}
return(s);
}
Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFileList = s
End Function
FUNCTION ShowFolderList (BYVAL strFolderSpec AS STRING) AS STRING
LOCAL fso AS IFileSystem
LOCAL f AS IFolder
LOCAL fc AS IFileCollection
LOCAL fl AS IFile
LOCAL s AS STRING
LOCAL hr AS LONG
LOCAL penum AS IEnumVARIANT
LOCAL v AS VARIANT
fso = NEWCOM ("Scripting.FileSystemObject")
f = fso.GetFolder(UCODE$(strFolderSpec))
fc = f.Files
penum = fc.NewEnum_
DO
hr = penum.Next(1, v, BYVAL %NULL)
IF hr <> %S_OK THEN EXIT DO
fl = v
s = s & ACODE$(fl.Name) & $CRLF
LOOP
FUNCTION = s
END FUNCTION