[已解决]“文件备注”的代码

759857387

见代码：
Sub Test()
   FilePath = "C:\Users\Desktop\Book1.xlsm"
   Dim fs, f, s
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(FilePath)
   s = s & "文件名称: " & f.Name & vbCrLf
   s = s & "文件路径: " & UCase(FilePath) & vbCrLf
   s = s & "建立时间: " & f.DateCreated & vbCrLf
   s = s & "最后使用日期与时间: " & f.DateLastAccessed & vbCrLf
   s = s & "最后修改日期与时间: " & f.DateLastModified
   s = s & "文件夹的大小: " & FormatNumber(f.Size / 1024, 0)
   s = s & "Kb" & vbCrLf
   s = s & "文件或文件夹类型: " & f.Type & vbCrLf
   's = s & "文件备注: " & ？
   MsgBox s, 0, "File Access Info"
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-2-17 09:16

file对象中没有"文件备注"这个属性。




你说的备注，是这个（箭头）。

跳转到最佳答案楼层

爱疯

file对象中没有"文件备注"这个属性。




你说的备注，是这个（箭头）。

759857387

爱疯 发表于 2015-2-17 09:16
file对象中没有"文件备注"这个属性。

是的我也查看了Files 集合，只能转换了，谢谢爱版。