IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

 
 Ответить  Открыть новую тему 
> еще VBScript, атрибуты.
makrame
сообщение 1.05.2007 16:02
Сообщение #1


Гость






Как можно с помощью VBS поменять атрибуты файлу C:/test.txt (если он скрыт, чтобы стал видимым)? Заранее благодарю.
 К началу страницы 
+ Ответить 
volvo
сообщение 1.05.2007 16:08
Сообщение #2


Гость






Попробуй так:
Код
...
Set f = fso.GetFile("C:\\test.txt")
If f.attributes and 2 Then
    f.attributes = f.attributes - 2
...


Сообщение отредактировано: volvo - 1.05.2007 16:09
 К началу страницы 
+ Ответить 
Гость
сообщение 1.05.2007 20:10
Сообщение #3


Гость






что-то не получается.(
ну ладно... у меня еще вопрос. Как создавать директории на VBS?
 К началу страницы 
+ Ответить 
volvo
сообщение 2.05.2007 0:11
Сообщение #4


Гость






Цитата
что-то не получается.
Не знаю, что у тебя не получается - все прекрасно работает:
Код
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

 К началу страницы 
+ Ответить 
Гость
сообщение 2.05.2007 23:47
Сообщение #5


Гость






благодарю
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 10:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"