获取进程中的文件名.路径.大小.创建时间.修改时间.属性等

LOCAL oWbemLocator, oWMIService, oItems, oItem
oWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
oWMIService = oWbemLocator.ConnectServer(".", "root/cimv2")
oItems = oWMIService.ExecQuery("SELECT * FROM Win32_Process")
FOR EACH oItem IN oItems
    ? oItem.ProcessId,oItem.Name,oItem.ExecutablePath
    *依次是：进程ID，进程Name，进程文件路径
ENDFOR 
RELEASE oWbemLocator, oWMIService, oItems, oItem


知道进程文件路径了，再通过ADIR()即可得到
文件大小、创建时间、修改时间

Adir(MyArray,'c:/vfp/vfp6.exe')
?'文件名:',MyArray(1)
?'文件大小:',MyArray(2)
?'文件最后修改日期:',MyArray(3)
?'文件最后修改时间:',MyArray(4)
?'文件属性:',MyArray(5)