如何获取文件的“扩展”属性

firstxinjie

发布于 2024-12-06 14:26:52

940

文章被收录于专栏：X#(XSharp)

在 VFP ，“原生”获取一个文件的属性有很多方法，例如使用 Adir() 函数或者 Filer.dll，但是总有一些“不方便”。

要么，获取的属性有限；要么，凭空多带一个文件。似乎总有不爽的地方。如果我想获取数码相机中照片的信息怎么搞？如果我想对下载的视频文件分类又该怎么办？这两个问题很有代表性......

VFP 是不是就束手无策了呢？

Clear
Create Cursor temp000000443(序号 N(6),名称 C(30),参数 C(60))

objSHELL = Createobject("Shell.Application")
objPath = objSHELL.NameSpace('F:\我的视频\')
objFile = objPath.ParseName('F-16.MP4')  &&如果是文件夹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

代码不值钱，方法值钱。

Shell.Application 是一个不太为大多数 Foxer 熟悉的玩意。如果你想深入其中，可以参阅：https://learn.microsoft.com/zh-cn/windows/win32/shell/shell-entry

祝你玩儿的愉快！

Follow me，认识不一样的 VFP ！

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-06-20，如有侵权请联系 cloudcommunity@tencent.com 删除