如何在vb中實現(xiàn)查看文件的屬性?

Option Explicit

為達川等地區(qū)用戶提供了全套網頁設計制作服務，及達川網站建設行業(yè)解決方案。主營業(yè)務為網站制作、網站設計、達川網站設計，以傳統(tǒng)方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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 系統(tǒng)文件。屬性為讀/寫。

'8 磁盤驅動器卷標。屬性為只讀。

'16 文件夾或目錄。屬性為只讀。

'32 自上次備份后已經改變的文件。屬性為讀/寫。

'64 鏈接或快捷方式。屬性為只讀。

'128 壓縮文件。屬性為只讀。

Print f.DateCreated

'返回指定文件或文件夾的創(chuàng)建日期和時間?只讀?

Print f.DateLastAccessed

'返回最后一次訪問指定文件或文件夾的日期和時間。只讀。

Print f.DateLastModified

'返回最后一次修改指定文件或文件夾的日期和時間?只讀?

Print f.Name

'設置或返回指定的文件或文件夾的名稱。可讀寫。

Print f.Path

'返回指定文件、文件夾或驅動器的路徑。

Print f.Size

'對于文件，返回指定文件的字節(jié)數(shù)；對于文件夾，返回該文件夾中所有文件和子文件夾的字節(jié)數(shù)。

End Sub

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

高分求助！vb.net清空隱藏文件夾代碼

有的系統(tǒng)文件夾是不讓刪除文件的，要刪除就要進入DOS 或 PE系統(tǒng)下了， 你想清的 是哪個文件夾 說下

vb.net 獲取目錄下文件夾名不包括隱藏文件夾

Vb.net獲取某個目錄下文件夾名稱（不包含隱藏文件夾）實現(xiàn)代碼如下：

Dim?dir?As?New?DirectoryInfo("D:\")

For?Each?d?As?DirectoryInfo?In?dir.GetDirectories

ComboBox1.Items.Add(d.Name)

Next

dim?finfo?as?new?fileinfo(d.name)

if?(finfo.attributes?and?FileAttributes.Hidden)FileAttributes.Hidden?then

ComboBox1.Items.Add(d.Name)

end?if