Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.
Mit Hilfe der Funktion "GetDir" oder "GetDirectory" wird der Name des aktuellen Verzeichnisses abgerufen.
Diese Dateiinhaltsfunktion hat das folgende Format:
GetDir(n1 as Integer) as String
GetDirectory(n1 as Integer) as String
Gibt die Nummer des Laufwerks an.
Bei erfolgreichem Abschluss gibt die Funktion eine Zeichenfolge zurück, die den Namen des aktuellen Verzeichnisses für das angegebene Laufwerk enthält. Andernfalls wird eine leere Zeichenfolge zurückgegeben.
Die Funktion gibt den Namen des aktuellen Arbeitsverzeichnisses für das Laufwerk zurück, das durch den Parameter "n1" (der eine Laufwerksnummer festlegt, 0 für Standard, 1 für A, 2 für B usw.) angegeben wird.
Hinweis: Auf UNIX-Plattformen hat "n1" keine Bedeutung.
Beispiel: Funktion "GetDirectory"
In diesem Beispiel wird ein Verzeichnis erstellt, zum aktuellen Verzeichnis gemacht und dann der Name dieses Verzeichnisses abgerufen. Anschließend wird C:\ zum Standardverzeichnis gemacht und der Name des erstellten Verzeichnisses geändert. Dann wird das umbenannte Verzeichnis gelöscht, sofern es existiert (also korrekt umbenannt wurde).
'Create dir
CreateDirectory("C:\AMTest")
'Set active dir
SetDirectory("C:\AMTest")
MessageBox(" Aktuelles Verzeichnis ist : " + GetDirectory(0) )
'Set Default to C:\
SetDirectory("C:\")
'Rename the directory
RenameDirectory("C:\AMTest","C:\AMTest_1")
If ExistDirectory("C:\AMTest_1") THEN
RemoveDirectory("C:\AMTest_1")
Else
MessageBox("Verzeichnis C:\AMTest_1 nicht gefunden")
Endif
|
Copyright © 2013 CA.
Alle Rechte vorbehalten.
|
|