VB如何获取文件的详细属性信息?

libo349 2019-06-25 09:36:01


如何用VB获取 一个文件的详细信息 ?

如图 :一个是图片,一个是程序 文件 如何获取他们的属性信息
...全文
888 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
libo349 2019-06-27
  • 打赏
  • 举报
回复
谢谢2楼哥哥 完美啊 !!
VB业余爱好者 2019-06-26
  • 打赏
  • 举报
回复
仅供参考

    Dim oDLG
Dim pth As String
Dim Flname As String
Dim objTIFF As Object

Dim shl As Shell32.Shell
Dim shfd As Shell32.Folder
Dim s As String
Dim i As Integer
Set oDLG = CreateObject("MSComDlg.CommonDialog")

oDLG.DialogTitle = "打开文件"
oDLG.Filter = "所有文件|*.*"
oDLG.MaxFileSize = 255
oDLG.ShowOpen
If oDLG.FileName <> "" Then
i = InStrRev(oDLG.FileName, "\")
If i = 0 Then Exit Sub
Flname = UCase(Mid(oDLG.FileName, i + 1))
Set shl = New Shell
Set shfd = shl.NameSpace(Left(oDLG.FileName, i - 1))

'注意文件不能被占用,如果占用则取不到正确值
For i = 0 To 500
If shfd.GetDetailsOf(1, i) <> "" Then
s = s & i & ":" & shfd.GetDetailsOf(0, i) & ": " & shfd.GetDetailsOf(shfd.Items.Item(Flname), i) & vbCrLf
If shfd.GetDetailsOf(1, i) = "位深度" Then
MsgBox "位深度:" & shfd.GetDetailsOf(shfd.Items.Item(Flname), i)
End If
Else
Exit For
End If
Next i
Text1.Text = s
End If

Set oDLG = Nothing

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧