Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

Verzeichnisse rekursiv anlegen

 

Erfaßt von: Felix Hoffmann (eMail: Felix.Hoffmann@upb.de ) am 04.01.2005 ; -
Letzte Änderung: 04.01.2005

 

Kurzbeschriebung: So kann man mit einem einzigen Methodenaufruf mehre Verzeichnisebenen im Dateisystem erzeugen (4D 2004/WIN) ;

---

Beschreibung Der Befehl CREATE FOLDER kann derzeit nur einzelne Ordner, aber keine ganzen Hierarchien erzeugen: CREATE FOLDER("C:\\NeuesMat\\Bilder") ` FALSCH, in einem Aufruf können nicht zwei Ordnerebenen angelegt werden Meine Methode erfüllt diese Aufgabe. Für Verbesserungsvorschläge bin ich als 4D-Anfänger besonders dankbar! Insbesondere hätte ich das ganze gerne plattformunabhängig... Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für Verzeichnisse rekursiv anlegen

---

4D Code Beispiel `Methode m_createFolder C_STRING(100;$1;$temp;$path) C_LONGINT($pos) $pos:=999  `dummy initialization $temp:=$1   `add trailing backslash if necessary If (Substring($temp;Length($temp);1)#"\\") $temp:=$temp+"\\" End if While ($pos#0) $pos:=Position("\\";$temp) $path:=$path+Substring($temp;1;$pos) $temp:=Substring($temp;$pos+1) If (Test path name($path)#Is a directory ) CREATE FOLDER($path) End if End while Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link