Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage einbauen

Abfrage einbauen
29.04.2019 12:24:47
philipp
Hallo zusammen,
hatte dieses Makro vom Matthias, geht einwandfrei.

Sub Pfad_anlegen()
MakeSureDirectoryPathExists _
"C:\test\1\2\3\4\5\"
End Sub
Ich würde gern eine Info einbauen:
"Verzeichnis nicht vorhanden, wird erstellt"
danach
"Verzeichnis vorhanden"
gruß
philipp

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage einbauen
29.04.2019 12:30:50
Matthias
Hi
If Dir("C:\test\1\2\3\4\5\") = "" Then MsgBox "Verzeichnis nicht vorhanden, wird erstellt"
"Verzeichnis vorhanden" dann analog.
Gruß Matthias
Super Matthias, danke ! -)
29.04.2019 12:49:07
philipp
AW: Super Matthias, danke ! -)
29.04.2019 13:09:15
Luschi
Hallo philipp,
leider muß ich da Essig in den Wein Deiner Freudensausbrüche kippen, denn die MsgBox bringt eine
Fake-Meldung!, wenn das Verzeichnis zwar existiert aber ist..
Die Dir-Funktion hat noch einen 2. Parameter, den man unbedingt angeben muß, wenn man auch Verzeichnisse testet und nicht auf Dateien:
If Dir("F:\test\1\2\3\", vbDirectory) = "" ...
ASußerdem emphehle ich die Win-API-Funltoion: MakeSureDirectoryPathExist
siehe: https://www.vbarchiv.net/api/api_makesuredirectorypathexists.html
Gruß von Luschi
aus klein-Paris
Anzeige
Danke Luschi, stimmt -)
29.04.2019 13:16:39
philipp
Hallo Luschi,
Du hast recht.
vbDirectory eingesetzt einwandfrei !
Danke auch nochmals an Matthias !
gruß
philipp
Doch noch Fehler...
29.04.2019 13:11:05
philipp
Hallo Matthias,
habe mal so eingesetzt:
If Dir("C:\_Werkstatt\__Maschinen\Mitarbeiter\" & TJahr & "\") = "" Then
MsgBox "Verzeichnis nicht vorhanden, wird erstellt"
MakeSureDirectoryPathExists _
"C:\_Werkstatt\__Maschinen\Mitarbeiter\" & TJahr & "\""
Else
MsgBox "Verzeichnis ist vorhanden !"
End If
leider wird immer Verz. erstellt obwohl vorhanden.
gruß
philipp

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige