Löysin scriptin joka avaa ja sulkee cd aseman automaattisesti. Miten ton sais muokattua siten että avais vaan kerran cd aseman eikä sulje sitä automaattisesti?
do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop
do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop
Vastaukset 7
Vanhimmat
Poista tuo jälkimmäinen colCDROMs.Item(d).Eject ?
joo muten toimii mutta kun sen sulkee käsin sen aseman se avaa sen uudelleen ton loopin takia. Koitin poistaa ton viimisen lauseen loop niin kun sen suorittaa niin se ilmoittaa sen olevan pakollinen
No kun sen ohjelman loppuminen tapahtuu sillein, että poistutaan johonkin (jos ei aloiteta alusta)
mutta miten? esim batch tiedostot luetaan rivi riviltä ja sulkeutuu exit kommenosta tai kun viimeinen rivi on suoritettu.
"Koitin poistaa ton viimisen lauseen loop niin kun sen suorittaa niin se ilmoittaa sen olevan pakollinen"
Se viimeinen loop-käsky palauttaa ohjelman suorituksen koodin alussa olevaan "Do" käskyyn.
Eli jos haluat koodin suritettavan vain kerran, poista ensimmäinen "Do" ja viimeinen "loop"
joo oisko olemassa suomenkielistä vbs opasta tai kirjaa kiitos linkistä ja vinkistä ;)
Eikä Windowsista löydy eject komentoa?