最後來個綜合功能
.支援多資料夾指定
比如:
改檔案屬性.exe c:\123\ c:\abc
.可對 唯讀及隱藏 屬性 作ON/OFF 指定功能
範例如下A~D:
(A)
改檔案屬性.exe c:\123\ /h
表示隱藏 c:\123\ 下檔案，並應用唯讀
(B)
改檔案屬性.exe c:\123\ /h /nor
表示隱藏 c:\123\ 下檔案 但取消唯讀
(C)
改檔案屬性.exe c:\123 /noh
表示取消 c:\123\ 下檔案(包括附屬資料夾) 隱藏 並應用唯讀
(D)
改檔案屬性.exe c:\123\ /noh /nor /a d:\abc /h
表示
取消 c:\123\ 下檔案(包括附屬資料夾) 唯讀及隱藏 屬性
隱藏 d:\abc\ 下檔案(包括附屬資料夾) 並應用唯讀
程式碼如下，解釋就自行理解吧
PHP 語法:
Option Explicit On
Imports System.IO
Module mainModule
Dim so As SearchOption
Sub Main(ByVal cmdArgs() As String)
'**試驗用**
'ReDim cmdArgs(3)
'cmdArgs(0) = "c:\test"
'cmdArgs(1) = "/nor"
'cmdArgs(2) = "/noh"
'cmdArgs(3) = "/h"
'*********
If cmdArgs.Length = 0 Then Exit Sub
For i As Integer = 0 To UBound(cmdArgs)
If Mid(cmdArgs(i), 2, 2) = ":\" Then
'======成立======
so = SearchOption.TopDirectoryOnly '預設只處理指定資料夾，不處理附屬
If Right(cmdArgs(i), 1) <> "\" Then '如不是資料夾字串
cmdArgs(i) = cmdArgs(i) & "\" '改成資料夾字串
so = SearchOption.AllDirectories '沒加 "\"表示連同附屬資料夾都處理
End If
Dim infoReader As System.IO.FileInfo
Dim attributeReader As System.IO.FileAttributes
'屬性旗標共有 1111 1111 1111 1111 1111 1111 1111 1111 32種
Dim NewFileAttributes As System.IO.FileAttributes = FileAttributes.ReadOnly '預設擁有唯讀屬性
Dim NoEnFileAttributes As System.IO.FileAttributes = 0 '除能用
'參數段處理
For j As Integer = i + 1 To UBound(cmdArgs)
If Mid(cmdArgs(j), 2, 2) = ":\" Then Exit For
Select Case LCase(cmdArgs(j))
Case "/a" '連同附屬資料夾都處理
so = SearchOption.AllDirectories
Case "/h" '隱藏
NewFileAttributes = NewFileAttributes Or FileAttributes.Hidden
Case "/nor" '非唯讀
NoEnFileAttributes = NoEnFileAttributes Or FileAttributes.ReadOnly '表示要處理唯讀旗標
Case "/noh" '非隱藏
NoEnFileAttributes = NoEnFileAttributes Or FileAttributes.Hidden '表示要處理隱藏旗標
End Select
Next
'資料夾內的檔案
Dim oFile As Array = IO.Directory.GetFileSystemEntries(cmdArgs(i), "*.*", so)
For Each sFile As String In oFile
infoReader = My.Computer.FileSystem.GetFileInfo(sFile)
attributeReader = infoReader.Attributes '原本的屬性
'(致能)利用And邏輯運算 留下要修改的屬性項 是否等於 要修改的屬性，Not 的話就進入修改
If Not ((attributeReader And NewFileAttributes) = NewFileAttributes) Then
attributeReader = attributeReader Or NewFileAttributes '以Or方式 應用要修改(增加)的屬性
End If
'(除能)
infoReader.Attributes = attributeReader And (Not NoEnFileAttributes)
Next
'================
End If
Next
End Sub
End Module