Автор: makrame 1.05.2007 20:02
Как можно с помощью VBS поменять атрибуты файлу C:/test.txt (если он скрыт, чтобы стал видимым)? Заранее благодарю.
Автор: volvo 1.05.2007 20:08
Попробуй так:
Код
...
Set f = fso.GetFile("C:\\test.txt")
If f.attributes and 2 Then
f.attributes = f.attributes - 2
...
Автор: Гость 2.05.2007 0:10
что-то не получается.(
ну ладно... у меня еще вопрос. Как создавать директории на VBS?
Автор: volvo 2.05.2007 4:11
Цитата
что-то не получается.
Не знаю, что у тебя не получается - все прекрасно работает:
Код
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