Option Explicit

Private Sub Command1_Click()

Dim fs, f

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("C:\新建 文字文件.txt")

Print f.Attributes

"0 一般檔案。未設定屬性。

"1 只讀檔案。屬性為讀/寫。

"2 隱藏檔案。屬性為讀/寫。

"4 系統檔案。屬性為讀/寫。

"8 磁碟驅動器卷標。屬性為只讀。

"16 資料夾或目錄。屬性為只讀。

"32 自上次備份後已經改變的檔案。屬性為讀/寫。

"64 連結或快捷方式。屬性為只讀。

"128 壓縮檔案。屬性為只讀。

Print f.DateCreated

"返回指定檔案或資料夾的建立日期和時間?只讀?

Print f.DateLastAccessed

"返回最後一次訪問指定檔案或資料夾的日期和時間。只讀。

Print f.DateLastModified

"返回最後一次修改指定檔案或資料夾的日期和時間?只讀?

Print f.Name

"設定或返回指定的檔案或資料夾的名稱。可讀寫。

Print f.Path

"返回指定檔案、資料夾或驅動器的路徑。

Print f.Size

"對於檔案，返回指定檔案的位元組數；對於資料夾，返回該資料夾中所有檔案和子資料夾的位元組數。

End Sub

上面的就包括所有屬性了，如果想要彈出視窗要自己做個視窗，把上面的屬性排列上去