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

> Внимание!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

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


Гость






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


Гость






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


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


Гость






что-то не получается.(
ну ладно... у меня еще вопрос. Как создавать директории на VBS?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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

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


Гость






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

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

 





- Текстовая версия 24.11.2020 0:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name