Ordner erstellen

[ludakuhja]

Hallo,

ich habe folgenden Problem. unten steht ein Code welcher von Pfad :"P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name), Ordner Kopiert und in Pfad : "P:\Daten\B053085_MICHAEL MAYER\Baustellen\"
Einfügt und umbenennt wie Name in Zelle "A4" das funktioniert einwandfrei, aber wenn in der Zelle A4 zbs. "," oder "Lehrzeichenn" oder "-"
macht er das nicht richtig der fügt den Ordner ein aber der ist dann ohne Inhalt und zeigt denn Debugger an



Bitte um Hilfe danke

Code:

Private Sub Makro2()

Dim filesystem As Object
Dim strName As String
strName = Range("A4")
If MsgBox("Ordner beim Michael Mayer mit namen: " & strName & " anlegen?", vbYesNo) = vbYes Then

Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder "P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name)", "P:\Daten\B053085_MICHAEL MAYER\Baustellen\" & strName
Set filesystem = Nothing

MsgBox "Ordner mit namen:  " & strName & "  wurde angelegt!"

Else
MsgBox "ordner wurde nicht angelegt!!!"

End If


End Sub

[UweD]

Hallo

wie ist denn die Fehlermeldung im Debugger?


Hilft es, das ggf vorher abzufragen?

Code:

Private Sub Makro2()

    Dim filesystem As Object
    Dim strName As String
   
    strName = Range("A4")
   
    If strName = " " Or strName = ";" Or strName = "-" Then
        MsgBox "Fehler bei Name in A4"
        Exit Sub
    End If
   
    If MsgBox("Ordner beim Michael Mayer mit namen: " & strName & " anlegen?", vbYesNo) = vbYes Then
   
        Set filesystem = CreateObject("Scripting.FileSystemObject")
       
        filesystem.CopyFolder "P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name)", "P:\Daten\B053085_MICHAEL MAYER\Baustellen\" & strName
       
       
        Set filesystem = Nothing
       
        MsgBox "Ordner mit namen:  " & strName & "  wurde angelegt!"
   
    Else
        MsgBox "ordner wurde nicht angelegt!!!"
   
    End If
   

End Sub

LG UweD

[schauan]

Hallöchen,

Leerzeichen, Kommata oder Bindestriche sollten keine Auswirkungen haben. Du kannst das ja mal in C:\Temp mit ein paar festen Verzeichnissen ausproboeren, z.B.:

Code:

Private Sub Makro2()
Dim filesystem As Object
Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder "C:\Temp\Maske", "C:\Temp\Mas,ke ra-de"
Set filesystem = Nothing
End Sub

[Case]

...aber wenn in der Zelle A4 zbs. "," oder "Lehrzeichenn" oder "-"
macht er das nicht richtig...

Hallo, :19:

eventuell kannst du dir hier noch ein paar Infos ziehen: :21:

API - Ordner erstellen, Zeichen prüfen, Umlaute konvertieren...

Das ist jetzt keine komplette Lösung, aber ein Hinweis, wie du auf unerlaubte Zeichen, Umlaute, Länge Pfad- und Dateiname prüfen bzw. reagieren kannst.