Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner im aktuellen Verzeichnis erstelle

Ordner im aktuellen Verzeichnis erstelle
26.01.2023 18:13:18
wolfgang
Guten Abend,
ich möchte gern im aktuellen Verzeichnis im vorhandenen einen Ordner erstellen.
Habe dies gefunden:
Dim strDateiName As String
Dim strDateiExistiert As String
Stop
strDateiName = "Lager1"
strDateiExistiert = Dir(strDateiName)
If strDateiExistiert = "" Then
MsgBox "Die ausgewählte Datei existiert nicht"
MkDir (strDateiName)
Else
MsgBox "Die ausgewählte Datei existiert"
End If
klappt allerdings nicht, woran liegt es ?
gr wolfgang

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habe so das Verzeichnis ermittelt
26.01.2023 18:24:07
kurt
Hallo,
habe hiermit das Verzeichnis ermittelt:
Dim Verzeichnis2 As String
Verzeichnis2 = ActiveWorkbook.Path
MsgBox Verzeichnis2
MkDir (Verzeichnis2 & strDateiName)
klappt auch nicht.
gr wolfgang
AW: Habe so das Verzeichnis ermittelt
26.01.2023 18:24:56
wolfgang
Hallo,
habe hiermit das Verzeichnis ermittelt:
Dim Verzeichnis2 As String
Verzeichnis2 = ActiveWorkbook.Path
MsgBox Verzeichnis2
MkDir (Verzeichnis2 & strDateiName)
klappt auch nicht.
gr wolfgang
AW: Habe so das Verzeichnis ermittelt
26.01.2023 18:29:18
Nepumuk
Hallo Wolfgang,
so:
Public Sub Test()
    Dim strFolder As String
    strFolder = ThisWorkbook.Path & "\Lager1"
    If Dir$(strFolder) = vbNullString Then
        MsgBox "Die ausgewählte Datei existiert nicht"
        MkDir strFolder
    Else
        MsgBox "Die ausgewählte Datei existiert"
    End If
End Sub
Gruß
Nepumuk
Anzeige
Super aber beim ...
26.01.2023 18:53:56
wolfgang
Guten Abend Nepumuk,
läuft super Ordner wird erstellt.
Führe ich das Makro nochmals aus, sagt Meldung:
MsgBox "Die ausgewählte Datei existiert nicht"
obwohl Ordner vorhanden .
gr wolfgang
AW: Super aber beim ...
26.01.2023 18:56:51
Nepumuk
Hallo Wolfgang,
oooooooooops, so natürlich:
If Dir$(strFolder, vbDirectory) = vbNullString Then
Gruß
Nepumuk
Super perfekt ! DANKE -)
26.01.2023 19:01:27
wolfgang

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige