Version 6.5
Select folder {(Meldung)} String
Parameter | Typ | Beschreibung | |
Meldung | String | Fenstertitel | |
Funktionsergebnis | String | Zugriffspfad auf ausgewählten Ordner |
Beschreibung
Die Funktion Select folder zeigt ein Dialogfenster, in dem Sie einen Ordner manuell auswählen und dann den kompletten Zugriffspfad dafür wiederfinden können.
Hinweis: Select folder ändert nicht den aktuellen Ordner von 4D.
Select folder zeigt das Standarddialogfenster zum Navigieren in den Volumes und Ordnern der Workstations.
Mit dem optionalen Parameter Meldung zeigen Sie im Dialogfenster eine Meldung an. In den folgenden Beispielen lautet sie "Welcher Ordner":
Windows
Mac OS
Der Benutzer wählt einen Ordner und klickt dann unter Windows auf die Schaltfläche OK, auf Macintosh auf die Schaltfläche Auswählen. Die Funktion gibt den Zugriffspfad für diesen Ordner zurück.
Unter Windows erscheint er in folgendem Format:
"C:\Ordner1\Ordner2\AusgewählterOrdner\"
Auf Macintosh erscheint er in folgendem Format:
"Festplatte:Ordner1:Ordner2:AusgewählterOrdner:"
Hinweis: Auf Macintosh haben Sie einen anderen ausgewählten Ordner, je nachdem, ob der Ordner im Dialogfenster ausgewählt ist oder nicht.
4D Server: Mit dieser Funktion sehen Sie die Volumes, die mit der 4D Arbeitsstation verbunden sind. Sie können Select folder nicht in einer Serverprozedur aufrufen.
Bestätigt der Benutzer das Dialogfenster, hat die Systemvariable OK den Wert 1. Klickt der Benutzer auf die Schaltfläche Abbrechen, hat die Systemvariable OK den Wert 0 (Null), die Funktion gibt einen leeren String zurück.
Hinweis: Wählt der Benutzer unter Windows inkorrekte Elemente, wie "Workstation", "Papierkorb", etc., hat die Systemvariable OK den Wert 0 (Null), selbst wenn der Benutzer das Dialogfenster bestätigt.
Beispiel
In folgendem Beispiel wählen Sie den Ordner aus, in dem die Bilder in der Bildbibliothek gespeichert werden:
$PictFolder:=Select folder("Wähle Zielordner für Ihre Bilder.") PICTURE LIBRARY LIST (pictRefs;pictNames) For ($n;1;Size of array(pictNames)) $vRef:=Create document($PictFolder+pictNames{$n};"PICT") If (OK=1) GET PICTURE FROM LIBRARY(pictRefs{$n};$vStoredPict) SAVE PICTURE TO FILE($vRef;$vStoredPict) CLOSE DOCUMENT($vRef) End if End for
Referenz