Flasher
|
 Posted: Wed Jul 20, 2011 02:37 Post subject: |
 |
|
Иногда для просмотра DVD-фильмов/обучалок необходимо по-быстрому смонтировать папку, полученную, например, с торрент-трекера, на диск. Несколько месяцев назад сделать себе такой скрипт. Выложу, может, кому пригодится: | Code: | ' Смонтировать папку под курсором на виртуальный диск
' Параметры: %V
'=====================================
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(WScript.Arguments(0)) Then
Drives=Array("D:","E:","F:","G:","H:","I:","J:","K:","L:","M:", "N:","O:","P:","Q:","R:","S:","T:","U:","V:","W:","X:","Y:","Z:")
Set Dict = CreateObject("Scripting.Dictionary")
For Each Drive In FSO.Drives
Dict.Add Trim(Drive), ""
Next
Set FSO = Nothing
For Each D in Drives
If Not Dict.Exists(D) Then
CreateObject("WScript.Shell").Run "subst " & D & " """ & WScript.Arguments(0) & """", 0, True
Set Dict = Nothing
WScript.Quit
End If
Next
End If |
Ну, и впридачу: | Code: | ' Отмонтировать все папки
'========================
For Each D In CreateObject("Scripting.FileSystemObject").Drives
CreateObject("WScript.Shell").Run "subst /d" & " " & D, 0, True
Next
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
