Herbers Excel-Forum - das Archiv

ordner anlegen ..wenn nicht vorhanden

Bild

Betrifft: ordner anlegen ..wenn nicht vorhanden
von: roland_k

Geschrieben am: 12.02.2005 15:45:33
hm bin am basteln....gruesse euch
ich will automatisch speichern ,,,in c:\ test z . b
wenn aber der ordner nicht besteht kommt debubgger ??
wie stell ich das an ??
danke gruss roland _k
Bild

Betrifft: AW: ordner anlegen ..wenn nicht vorhanden
von: Josef Ehrensberger

Geschrieben am: 12.02.2005 15:51:31
Hallo Roland!
Das geht zB. so!
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub Pfad_anlegen()
MakeSureDirectoryPathExists "C:\NeuerOrdner\NeuerOrdner\NeuerOrdner\NeuerOrdner\"
End Sub

Dabei wird das Verzeichnis, sofern nicht vorhanden, angelegt!

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: ordner anlegen ..wenn nicht vorhanden
von: Matthias G
Geschrieben am: 12.02.2005 15:53:15
Hallo Sepp,
was es nicht alles für Funktionen gibt... :-)
*STAUN*
Gruß Matthias
Bild

Betrifft: AW: ordner anlegen ..wenn nicht vorhanden
von: Heinz A. Wankmüller

Geschrieben am: 12.02.2005 16:17:15
Hallo Matthias,
da kann ich dir nur beipflichten.
Die Frage stellt sich: Wo findet man sowas?
Wie auch z.B GetBaseName(strDatei), mit der aus einem Gesamtpfad nur der Dateiname ausgelesen wird
Gruß
Heinz
Bild

Betrifft: AW: ordner anlegen ..wenn nicht vorhanden
von: Matthias G
Geschrieben am: 12.02.2005 15:51:47
Hallo Roland,
If Dir("C:\test", vbDirectory) = "" Then MkDir "C:\test"
Gruß Matthias
Bild

Betrifft: danke leute ..muss erst mal umsetzen :-))
von: roland_k
Geschrieben am: 12.02.2005 16:24:32
danke ..das sollte verdelli aber in recherche finden
hatte das mal im buch von bernd held gesehn aber nicht mehr gefunden
na ja vielen dank
gruss roland _k
 Bild
Excel-Beispiele zum Thema "ordner anlegen ..wenn nicht vorhanden "
Excel-Dateien eines Ordners listen Ordner eines Verzeichnisses in ListBox übernehmen
Bei Doppelklick Ordner im Explorer öffnen Dateien einer Ordnerliste in einer Tabelle zusammenstellen
Ordnernamen eines Verzeichnisses in Zelle einfügen Dateisuche unter Einbeziehung der untergeordneten Ordner
Ordnerdialog mit nachfolgendem Dateidialog aufrufen Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen
Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern Vorhandensein von Verzeichnissen prüfen und Ordner anlegen