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 >>ENDIF>
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 >Robert,
lcdir = GETDIR() && Selected the Windows\System folder oDir = oFSO.GetFolder(lcdir) ? oDir.DateCreated && COM error 0x800a0005The workaround is that
? TYPE('oDir.DateCreated')returns "U". If it's "T", then you can access the property.