Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Ordner erstellen
#1
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
Antwortento top
#2
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
Antwortento top
#3
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#4
(11.08.2020, 14:14)ludakuhja schrieb: ...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...

D
as 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. Blush
________
Servus
Case
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste