wer kennt folgende befehle für basic computersprache

[Unregistriert]

laufwerk öffnen
laufwerk schliessen
pc herunterfahren





schon mal danke im voraus

 

[Björn]

Hi,

ich vermute, das Du mit Basic eigentlich Visual Basic meinst - richtig?
Wenn ja, könnten unten stehende Befehle helfen.


PC Herunterfahren via:
Shell ("shutdown -s -t 0")

Laufwerk öffnen und schließen:
' zunächst die benötigte API-Deklaration
Private Declare Function mciExecute Lib "winmm.dll" ( _
ByVal lpstrCommand As String) As Long

' CDROM-Laufwerk öffnen
Public Sub CDOpen()
mciExecute "Set CDaudio door open"
End Sub

' CDROM-Laufwerk schliessen
Public Sub CDClose()
mciExecute "Set CDaudio door closed"
End Sub

 

[babayaga]

Solltest Du 'normale Laufwerke' meinen, also C:/Unterordnername dann zB mit dem filesystemobject:

Sub oder()
  Dim fso As Object, fo As Object, fi As Object
  Dim pfad$
  pfad = InputBox("Pfad angeben:", "x:yyzz", "d:cad")
  If pfad = "" Then Exit Sub
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fo = fso.getfolder(pfad)
  For Each fi In fo.Files
    Debug.Print fi.Name, fi.Type, fi.Size
  Next
  Set fso = Nothing
End Sub

lg Nancy
--
ps: wäre im EDV besser zuhause

 

[raftinthomas]

also mein c64 hat meines wissens für keines der gefragten probleme befehle .casio fx 880p, zx81, spectrum und amiga glaub ich auch nicht...

fortran77, pascal und basic rulez...