' 隱藏檔案
Dim strFileName As String = "C:\test.txt"
Dim fileInfo As New FileInfo(strFileName)
fileInfo.Attributes = FileAttributes.Hidden
'隱藏資料夾
Dim strDirName As String = "C:\test"
Dim diMyDir As New DirectoryInfo(strDirName)
diMyDir.Attributes = FileAttributes.Hidden
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line