еще VBScript, атрибуты. Опции

[makrame]

Как можно с помощью VBS поменять атрибуты файлу C:/test.txt (если он скрыт, чтобы стал видимым)? Заранее благодарю.

[volvo]

Попробуй так:

Код

...
Set f = fso.GetFile("C:\\test.txt")
If f.attributes and 2 Then
    f.attributes = f.attributes - 2
...

Сообщение отредактировано: volvo - 1.05.2007 20:09

[Гость]

что-то не получается.(
ну ладно... у меня еще вопрос. Как создавать директории на VBS?

[volvo]

что-то не получается.

Не знаю, что у тебя не получается - все прекрасно работает:

Код

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

[Гость]

благодарю