14.07.2014 Aufrufe

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

Handbuch BasicMaker 2010 - SoftMaker

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

Print x<br />

End If<br />

End Sub<br />

ChDir (Anweisung)<br />

ChDir [Laufwerk:]Verzeichnis<br />

Wechselt das aktuelle Laufwerk/Verzeichnis.<br />

Laufwerk ist optional (Standardwert: aktuelles Laufwerk)<br />

Verzeichnis ist der Name des Verzeichnisses auf dem angegebenen Laufwerk.<br />

Der gesamte Pfadname darf maximal 255 Zeichenumfassen.<br />

Siehe auch: CurDir, ChDrive, MkDir, RmDir<br />

Beispiel:<br />

Sub Main<br />

Dim Answer, Msg, NL<br />

NL = Chr(10)<br />

' Chr(10)=Neue Zeile<br />

CurPath = CurDir()<br />

' Aktuellen Pfad ermitteln<br />

ChDir "\"<br />

Msg = "Es wurde in das Verzeichnis " & CurDir() & " gewechselt."<br />

Msg = Msg & NL & NL & "Klicken Sie auf OK, "<br />

Msg = Msg & "um in das vorherige Verzeichnis zurückzugelangen."<br />

Answer = MsgBox(Msg)<br />

ChDir CurPath<br />

' Zurück ins alte Verzeichnis<br />

Msg = "Wir sind jetzt wieder im Verzeichnis " & CurPath & "."<br />

MsgBox Msg<br />

End Sub<br />

ChDrive (Anweisung)<br />

ChDrive Laufwerk<br />

Wechselt das aktuelle Laufwerk.<br />

Laufwerk ist eine Zeichenkette mit dem Laufwerksbuchstaben.<br />

Sollte Laufwerk mehr als einen Buchstaben enthalten, wird nur der erste Buchstabe verwendet.<br />

Siehe auch: ChDir, CurDir, MkDir, RmDir<br />

Beispiel:<br />

Sub Main<br />

Dim Answer, Msg, NL<br />

NL = Chr(10)<br />

' Chr(10)=Neue Zeile<br />

CurPath = CurDir()<br />

' Aktuellen Pfad ermitteln<br />

ChDrive "D"<br />

Msg = "Es wurde in das Verzeichnis " & CurDir() & " gewechselt. "<br />

Msg = Msg & NL & NL & "Klicken Sie auf OK, "<br />

Msg = Msg & "um in das vorherige Verzeichnis zurückzugelangen."<br />

Answer = MsgBox(Msg)<br />

ChDir CurPath<br />

' Zurück ins urspr. Verzeichnis<br />

Msg = "Wir sind jetzt wieder im Verzeichnis " & CurPath & "."<br />

MsgBox Msg<br />

End Sub<br />

284 Anweisungen und Funktionen von A-Z <strong>Handbuch</strong> <strong>BasicMaker</strong> <strong>2010</strong>

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!