Temat
Wysowanie tacki napędu
217.96.17.* napisał:
Heloł
Błagam, niech ktoś mi powie jak zrobić skrut do wysunięcia tacki napędu.
212.182.122.* napisał:
napisz w notatniku poniższy tekst:CODE
set shell=CreateObject("Shell.Application")
Set Naped=ScanFolder(17, "(I:)") 'Wpisz literę napędu CD-ROM
Naped.invokeVerb("W&ysuń")
Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function
Wstaw sobie litere odpowiednią dla twojego napędu i nadaj plikowi nazwe z rozszerzeniem VBS.
217.96.17.* napisał:
wielkie dzięki!!RE5PECT
Ubdate: jestem gupi i nie potrafię tego uzupełnić (wiem, lama, ale z programowaniem mam tyle wspulnego co z miską soczewicy)
mógłbyś napisać jak to będzie wyglądać dla napędu "E" ??
212.182.122.* napisał:
CODE
set shell=CreateObject("Shell.Application")
Set Naped=ScanFolder(17, "(e:)")
Naped.invokeVerb("W&ysuń")
Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function
Set Naped=ScanFolder(17, "(e:)")
Naped.invokeVerb("W&ysuń")
Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function
80.54.124.* napisał:
Nawet ja sobie z tym poradzilem ;] Fajna sprawa...82.139.1.* napisał:
A da sie taki skrypcik na zamykanie zrobić? Jak tak to poprosze koda
217.96.17.* napisał:
ok, zrobiłem to ustrojstwodzięki za pomoc
212.182.122.* napisał:
Da się, ale trzeba mieć zainstalowany Clone CD. Jeżeli w clonie język jest ustawiony na polski to wystarczy w wyżej wymienionym skrypcie zamienić
Naped.invokeVerb("W&ysuń")
na
Naped.invokeVerb("Zamknij tackę")
82.139.1.* napisał:
Spoko działa tak wlasnie kombinowalem z tym ale zmienilem tylko na "zamknij" nie pomyslalem o tacce
pozdro
Podobne tematy
Działy
Copyright © 2002-2024 | Prywatność | Load: 1.46 | SQL: 1 | Uptime: 142 days, 13:31 h:m |
Wszelkie uwagi prosimy zgłaszać pod adresem eddy@heh.pl