set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set oDrives = fso.Drives
'For i = 1 To oDrives.Count
For each curDrv in oDrives [COLOR="DarkGreen"]'если перебирать все имеющиеся диски,
то тормозится при считывании дисковода А, поэтому хочется ее пропускать
при проверке.
Тогда надо вводить i-й элемент типа curDrv(i).VolumeName[/COLOR]
MsgBox curDrv(i).VolumeName [COLOR="DarkGreen"]'и тут же VBS начинает ругаться...[/COLOR]
If curDrv.VolumeName = "MyUSB" then MyLetter = curDrv.DriveLetter 'и потом
' уже с этой буквой писать пути копирования
Next
WScript.Quit
Как мне узнать букву USB-диска?
Dim fso
Написал скриптик в VBS (прямо указав букву переносного диска), чтобы архивировались нужные файлы на USB-винт.
Потом Алкоголем смонтировал какой-то образ и буква поменялась.
Т.е. надо букву присваивать в зависимости от типа диска или может быть ориентируясь на метку тома. Попробовал так:
Можно как-то подправить, если не оч. трудоемко?
Спасибо.
Написал скриптик в VBS (прямо указав букву переносного диска), чтобы архивировались нужные файлы на USB-винт.
Потом Алкоголем смонтировал какой-то образ и буква поменялась.
Т.е. надо букву присваивать в зависимости от типа диска или может быть ориентируясь на метку тома. Попробовал так:
Код:
Можно как-то подправить, если не оч. трудоемко?
Спасибо.
Если кому интересно, то получилось так:
Код:
For each i in oDrives [COLOR="DarkGreen"]'проверка наличия переносного диска[/COLOR]
If i.IsReady Then [COLOR="DarkGreen"]'без этого свойства, равного true
'i.VolumeName не имеет смысла, поэтому и не получалось вначале[/COLOR]
Text = Text & i.VolumeName ' Local drive
End If
Next
If Instr(Text, "MyUSB") = 0 Then MsgBox "воктни USB-диск!": WScript.Quit
For each i in oDrives [COLOR="DarkGreen"]'присвоение буквы этого переносного диска переменной[/COLOR]
On Error resume next
If i.IsReady Then
If i.VolumeName = "MyUSB" Then MyDRV = i.DriveLetter [COLOR="DarkGreen"]'присвоили буковку переменной[/COLOR]
End If
Next
If i.IsReady Then [COLOR="DarkGreen"]'без этого свойства, равного true
'i.VolumeName не имеет смысла, поэтому и не получалось вначале[/COLOR]
Text = Text & i.VolumeName ' Local drive
End If
Next
If Instr(Text, "MyUSB") = 0 Then MsgBox "воктни USB-диск!": WScript.Quit
For each i in oDrives [COLOR="DarkGreen"]'присвоение буквы этого переносного диска переменной[/COLOR]
On Error resume next
If i.IsReady Then
If i.VolumeName = "MyUSB" Then MyDRV = i.DriveLetter [COLOR="DarkGreen"]'присвоили буковку переменной[/COLOR]
End If
Next