Цитата
что-то не получается.
Не знаю, что у тебя не получается - все прекрасно работает:
Код
Dim WshSHell
Set WshShell = CreateObject("WScript.Shell")
Dim fso, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.GetFile("C:\\test.txt")
If oFile.attributes and 2 Then
oFile.attributes = oFile.attributes - 2
End If
Цитата
Как создавать директории на VBS?
Вот так:
Код
Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
End Function