Flasher
|
 Posted: Thu Aug 12, 2010 12:19 Post subject: |
 |
|
Tol!k
Спасибо за труд! Вчера посмотрел что получается, всё таки два лишних файла к красоте не отнести  , я уже было накидал цикл для списка томов вместо предложенного wmic >> | Code: | Dim FSO,i,x,s,n,drive
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
For each x In FSO.Drives
If x.DriveType<>4 Then
If x.DriveType=1 Or 2 And i<>"A:" And x.FileSystem="NTFS" Then
drive=x.DriveLetter
n=fso.GetDrive(drive)
s = s & n & vbNewLine
End If
End If
Next |
но тут подоспела тяжёлая артиллерия.
Batya
Это самое красивое, что я видел за последние пару недель! Настолько просто и идеально выглядит скрипт, даже Хелпер и буфер не затронулись, круто! 
Но пока ругается на 14 строку: Индекс выходит за пределы допустимого диапазона.
Добавлено: Нашёл кое-что странное >> | Batya wrote: | | Code: | NewPath = "\\\NTFS\ID"..... |
|
Я так понимаю, тут D на конце убрать надо? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
