隱藏檔案、隱藏資料夾

mhfo

' 隱藏檔案
        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