ログ
AsFile.FileSys.Log(LPCTSTR message) { return ::LogMessage(message) ; }
TempFile
AsFile.FileSys.GetDirTemp() + “TempFile.txt”
logData = oFSys.TextFileRead(logFile)
logData = logData & Now & vbTab & “LogData” & vbCrLf
oFSys.TextFileWrite logFile,logData