|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] скрипт, который создаст текстовый файл и запишет в него инфу о всех папках |
|
VBS/WSH/JS - [решено] скрипт, который создаст текстовый файл и запишет в него инфу о всех папках
|
Новый участник Сообщения: 16 |
Профиль | Отправить PM | Цитировать Заданием заключается таким образом: нужен скрипт, который создаст текстовый файл в папке документов моего профиля например,(хотя можно просто на каком нибудь диске) и запишет в него инфу о всех папках в папке диска C:\ моего ПК об их атрибутах
У меня получился примерно такой код но он естественно не работает... Подскажите, я хоты бы был в правильном направлении?:D Подскажите начинающему, как должен выглядеть правильный код этого задания |
|
Отправлено: 17:18, 19-09-2017 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата daniil_im:
Скрытый текст
Option Explicit Dim strDestFile Dim objTS Dim objFolder With WScript.CreateObject("Scripting.FileSystemObject") strDestFile = .BuildPath(WScript.CreateObject("WScript.Shell").SpecialFolders.Item("MyDocuments"), "текстовый файл.txt") If .DriveExists("C:") Then Set objTS = .CreateTextFile(strDestFile, True, True) For Each objFolder In .GetFolder("C:\").SubFolders objTS.WriteLine ComposeAttributesString(objFolder.Attributes) & vbTab & objFolder.Name Next objTS.Close Set objTS = Nothing Else WScript.Echo "Drive C: not exists." WScript.Quit 1 End If End With WScript.Quit 0 Function ComposeAttributesString(intAttributes) Dim strResult strResult = "" If intAttributes And 16 Then strResult = strResult & "D" Else strResult = strResult & " " If intAttributes And 2048 Then strResult = strResult & "C" Else strResult = strResult & " " If intAttributes And 1024 Then strResult = strResult & "L" Else strResult = strResult & " " If intAttributes And 32 Then strResult = strResult & "A" Else strResult = strResult & " " If intAttributes And 4 Then strResult = strResult & "S" Else strResult = strResult & " " If intAttributes And 2 Then strResult = strResult & "H" Else strResult = strResult & " " If intAttributes And 1 Then strResult = strResult & "R" Else strResult = strResult & " " ComposeAttributesString = strResult End Function |
|
Отправлено: 19:08, 19-09-2017 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Нужен скрипт или метод который вставит строки в текстовый файл | cyberp1983 | Скриптовые языки администрирования Windows | 11 | 09-05-2016 12:51 | |
CMD/BAT - bat файл, который создаст 2 bat файла | mazahaka2000@vk | Скриптовые языки администрирования Windows | 1 | 17-06-2015 22:07 | |
VBS/WSH/JS - скрипт для выгрузки в текстовый файл информации из AD текущего пользователя | baenov | Скриптовые языки администрирования Windows | 0 | 13-05-2015 17:01 | |
CMD/BAT - бат файл который будет снимать инфу и кидать мне её по сети | vlad_exe@vk | Скриптовые языки администрирования Windows | 0 | 26-06-2012 00:47 | |
текстовый файл с именами всех файлов в папке | socap | AutoIt | 19 | 19-02-2012 16:42 |
|