分享：取得文件或文件夹的相关属性，分辩率，视频时长，等等几百个属性明细

近日看到一段VB，关于取得视频时长等等，动手弄了一下，竞能在vfp下很好运行，功能强大，不足处望指正


CLEAR
CREATE CURSOR temp000000443(序号 N(6),名称 C(30),参数 C(60))
objSHELL = CreateObject("Shell.Application")
objPath = objSHELL.NameSpace('H:\')
objFile = objPath.ParseName('1.jpg')  &&如果是文件夹H:\1 则为1
For i = 0 To 350 &&最大值可能更大
mingcheng = objPath.GetDetailsOf(objFile, i)
canshi=objPath.GetDetailsOf(,i)  &&或 canshi=objPath.GetDetailsOf('item',i)
APPEND BLANK
REPLACE 序号 WITH I
REPLACE 参数 WITH mingcheng , 名称 WITH canshi
ENDFOR
GO top
BROWSE