lcfile = GETFILE("*") >IF NOT EMPTY(lcfile) > oFSO = CREATEOBJECT("Scripting.FileSystemObject") > CREATE CURSOR filesFSO (Path M, FileName M, Size I, Created T, Modified T) > oFile = oFSO.GetFile(lcfile) > WITH oFile > INSERT INTO filesFSO (Path, Filename, Size, Created, Modified); > VALUES (.Path, .Name, .Size, .DateCreated, .DateLastModified) > ENDWITH >ENDIFHmmm.. I'm missing something here then.. Here's part of what I'm using...
FUNCTION RecurseFolderFSO LPARAMETER toFolderObject WITH toFolderObject FOR EACH oFile IN .Files WITH oFile INSERT INTO filesFSO (Path, Filename, Size, Created, Modified); VALUES (.Path, .Name, .Size, .DateCreated, .DateLastModified) ENDWITH ENDFOR FOR EACH oSubFolder in .SubFolders RecurseFolderFSO(oSubFolder) ENDFOR ENDWITH