以上程式碼只支援頂端資料夾下的檔案屬性修改
以下可以改成選擇性 所有附屬子資料夾都應用
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檔案總管 作資料夾拖放
就等於全修改