-
问题内容：获取进程中的文件名.路径.大小.创建时间.修改时间.属性等
- 原讨论链接：http://community.csdn.net/expert/topicview1.asp?id=5306675
- 所属论坛：VFP
审核组：其他数据库开发
- 提问者：zzjgzs
解决者：apple_8180
- 感谢：apple_8180
- 关键字：其他数据库开发 VFP 进程文件路径
- 答案：
获取进程中的文件名.路径.大小.创建时间.修改时间.属性等
---------------------------------------------------------------
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)
- 评价：
给朵鲜花（1）
扔个鸡蛋（0）
