分享:取得文件或文件夹的相关属性,分辩率,视频时长,等等几百个属性明细
近日看到一段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