0

私はvbscriptを初めて使用しますが、新しいディレクトリを作成して属性を非表示に設定するためにvbscriptを作成する必要があります...ユーザーが非表示のフォルダを検索したときに表示されないようにします。誰かが私がこれを達成する方法を助けることができますか？これが私の小さなコードです

Dim objFSO, objFolder, strDiretory, 

strDirectory = "E:\logs"

Set objFSO = CreateObject("Scripting.FileSystemObject")




      Set objFolder = objFSO.CreateFolder(strDirectory)

   Set objFolder = objFSO.getFolder(strDirectory)
   objFolder.Attributes = 1
4

1 に答える 1

0

私の記憶が正しければ、隠しフォルダは 1 ではなく 2 の属性を使用します。属性を設定するために、あなたの代わりに次のコードを試してください。

If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2
End If
于 2013-03-17T19:00:10.153 に答える