• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] 如何获得文件信息? [复制链接]

1#
比如得到这个文件的创建时时间,大小等

本主题由 超级版主 瑞祥幽冥狼 于 2021/9/8 23:06:47 执行 主题分类 操作
2#

回复 1楼zjywtt2021的帖子
  1. Msgbox FileInfor("C:\Users\owner\Desktop\123.Q")
  2. Function FileInfor(FilePath)
  3. Dim fso, f, s ,a
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. a=FilePath '文件完整路径
  6. Set f = fso.GetFile(a)
  7. s = f.Path & vbcrlf
  8. s = s & "创建时间: " & f.DateCreated & vbcrlf
  9. s = s & "修改时间: " & f.DateLastModified & vbcrlf
  10. s = s & "访问时间: " & f.DateLastAccessed
  11. ShowFileAccessInfo = s
  12. FileInfor = s
  13. End Function
复制代码
  1. Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
  2. FilePath = Plugin.File.SelectFile()
  3. If vbNullString <> FilePath Then
  4. hFile = Plugin.File.OpenFile(FilePath)
  5. If hFile <> - 1 Then
  6. FileSize = GetFileSize(hFile, 0)
  7. If &HFFFFFFFF <> FileSize Then
  8. MessageBox FilePath & "的文大小为:" & FileSize & "字节"
  9. Else
  10. MessageBox "GetFileSize失败"
  11. End If
  12. Call Plugin.File.CloseFile(hFile)
  13. End If
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题