Hallo liebes VBA Forum,
ich muss auf der Arbeit ein Programm erstellen in Excel das einen Ordner per Button erstellt. So ist das auch erstmal kein Problem, der Name des Ordners soll sich das aus einer vorher angelegten ComboBox ziehen. Das klappt auch soweit. Ebenso soll das Programm sofern ein Ordner mit dem jeweiligen Namen schon vorhanden ist einen neuen Ordner erstellen mit "Vx" am ende, das x ist im dem Fälle ein Zähler damit es verschiedene Versionen gibt.
Mein Problem ist, dass er den Ordner nicht auslesen kann und dann immer im ersten Teil der If-Schleife bleibt, da er denkt das es den Ordner nicht gibt auch wenn es diesen schon gibt.
Eine Anmerkung ist noch, dass es sich um einen Netzwerkshare handelt auf dem die ordner erstellt werden sollen.
Wenn noch etwas unklar ist, dann beantworte ich das gerne!
Vielen Dank schonmal im voraus!
Hier einmal der Code:
Private Sub dateien_hochladen_Click()
Dim Pfad_Ordner As String
Dim i As Integer
Pfad_Ordner = ComboBox1.Value
pfad = "Hier steht normalerweise mein Dateipfad" 'Um später den Pfad anzupassen
'MsgBox pfad
'MsgBox Pfad_Ordner
If Dir(pfad & Pfad_Ordner & "\", vbDirectory) <> "" Then
MsgBox Dir(pfad & Pfad_Ordner)
MkDir (pfad & Pfad_Ordner)
MsgBox Dir(pfad & Pfad_Ordner)
MsgBox "Erfolgreich!", vbOKOnly, "Dateien hochladen"
Else
i = 1
Do While Dir(pfad & Pfad_Ordner & "_V" & i) & "\" <> ""
'MsgBox Dir(pfad & Pfad_Ordner & "_V" & i)
i = i + 1
'MsgBox Dir(pfad & Pfad_Ordner & "_V" & i)
MkDir (pfad & Pfad_Ordner & "_V" & i)
MsgBox "Erfolgreich!", vbOKOnly, "Dateien hochladen"
Loop
End If
End Sub
|