如何得到文件(例:"C:\aa.txt")的若干信息:1.名称2.所在文件夹3.大小4.类型5.修改时间???

[sunfei4000]

如何得到文件(例:"C:\aa.txt")的若干信息:
1.名称2.所在文件夹3.大小4.类型5.修改时间???

[SoHo_Andy]

留个邮箱，发个例子给你

[sssoft]

直接用DIR就可以阿

[sunfei4000]

如何得到文件(例:"C:\aa.txt")的若干信息:3.大小4.类型5.修改时间???

[lxcc]

Dim fso As New FileSystemObject
Private Sub Command1_Click()
'Normal 0 Normal file. No attributes are set.
'ReadOnly 1 Read-only file. Attribute is read/write.
'Hidden 2 Hidden file. Attribute is read/write.
'System 4 System file. Attribute is read/write.
'Volume 8 Disk drive volume label. Attribute is read-only.
'Directory 16 Folder or directory. Attribute is read-only.
'Archive 32 File has changed since last backup. Attribute is read/write.
'Alias 64 Link or shortcut. Attribute is read-only.
'Compressed 128 Compressed file. Attribute is read-only.

Dim file1 As File
Set file1 = fso.GetFile("D:\AdobeWeb.log")

Dim i As Integer
i = file1.Attributes
Select Case i
Case 0
MsgBox "正常"
Case 1
MsgBox "只读"
Case 2
MsgBox "隐藏"
Case 4
MsgBox "系统"
Case 8
MsgBox "驱动器"
Case 16
MsgBox "文件夹"
Case 32
MsgBox "文档"
Case 64
MsgBox "快捷方式"
Case 128
MsgBox "压缩"
End Select

Set file1 = Nothing
Set fso = Nothing
End Sub

[sunfei4000]

[e-mail]

[flc]

关注
学习
帮你UP

[sunfei4000]

谢过lxcc(虫子)~~!@~@

[SoHo_Andy]

已经发送

[boydgmx]

FileSystemObject

[guohong1219]

给我你的邮箱我刚刚做了一个