在VFP中借用FSO检查目录和文件。

close all
clear

chkFolder = 'D:/temp/'
fname = 'D:/log.txt'

chk = ChkFolderIsNull(chkFolder)
do case
 case chk = 0
  msg='此目录不存在：'+chkFolder
  WriteLog(fname,msg)
  ?msg
 case chk = 1
  msg='此目录为空：'+chkFolder
  WriteLog(fname,msg)
  ?msg
 case chk = -1
  msg='此目录不为空：'+chkFolder
  WriteLog(fname,msg)
  ?msg
endcase

return

* 检测目录是否为空 (返回值为 0 时目录不存在，返回 1 时为空，返回 -1 时不为空)
function ChkFolderIsNull(SearchFolder)

 SearchFolder = alltrim(SearchFolder)
 
 if !directory(SearchFolder) then
  wait windows '此目录不存在：'+SearchFolder nowait
  return 0
 endif
 
 SearchFolder=iif(right(SearchFolder,1)=='/',SearchFolder,SearchFolder+'/')
 
 r = 1
 oFSO = CreateObject("Scripting.FileSystemObject")
 oFolder = oFSO.GetFolder(SearchFolder)
 For each oFile in oFolder.Files
  r = -1
 endFor
 
 release oFile
 release oFolder
 release oFSO
 
return r

* 记录信息
function WriteLog(fname,msg)

 oFSO = CreateObject("Scripting.FileSystemObject")
 
 if !file(fname) then
  oTextStream=oFSO.CreateTextFile(fname)
  oTextStream.Close()
 endif
 
 oTextStream = oFSO.OpenTextFile(fname,8)
 oTextStream.WriteLine(msg)
 oTextStream.Close()
 
 release oTextStream
 release oFSO
 
return