教學 - [VB.Net] 以命令列指令方式修改檔案屬性(針對指定資料夾變成唯讀)

[mini]

以上程式碼只支援頂端資料夾下的檔案屬性修改

以下可以改成選擇性 所有附屬子資料夾都應用

PHP 語法:

 Dim so As SearchOption = SearchOption.TopDirectoryOnly       
 If UBound(cmdArgs) > 0 AndAlso cmdArgs(1) = "/a" Then
     so = SearchOption.AllDirectories
 End If

 '/將後面修改用 so變數來抉擇/
 Dim oFile As Array = IO.Directory.GetFileSystemEntries(cmdArgs(0), "*.*", so) 


例子：
改檔案屬性.exe d:\我的重要檔案\ /a
之後 d:\我的重要檔案\ 下
不論子資料夾 的檔案都會改成 唯讀檔案

===============
值得一提的是
雖然是命令列執行檔
但也可以用拖放的方式執行
只要用 Windows檔案總管 把資料夾拖放到 改檔案屬性.exe 檔案上
就可以 改檔案屬性.exe <拖放資料夾> 的結果執行
所以可以把此檔案以捷徑方式放在桌面方便執行
但如此就無法下達 /a 的參數
因此可以這樣
把 If Right(cmdArgs(0), 1) <> "\" Then cmdArgs(0) = cmdArgs(0) & "\"
改成

PHP 語法:

        If Right(cmdArgs(0), 1) <> "\" Then
            cmdArgs(0) = cmdArgs(0) & "\"
            so = SearchOption.AllDirectories
        End If 


以後
改檔案屬性.exe d:\我的重要檔案\ /a
就可用
改檔案屬性.exe d:\我的重要檔案
取代
如用 Windows檔案總管 作資料夾拖放
就等於全修改