Verzeichnis und Pfad prüfen
16.10.2019 14:03:06
wolfgang
ich habe ein kleines Problem.
Public Sub Laufw_Speichern()
Dim Verz, VerzOrd, VerzNam As String
Dim strPath$, strPathD
Dim vers, PathVerz, DateiVers
ChDir "\\WW\f\"
strPath = "\\ww\f\"
ChDir strPath
VerzOrd = "Aufträge"
PathVerz = strPath & VerzOrd
DateiVers = "#_Holz-Balken_Händler " & "vers. " & Sheets("Aufträge-Rein").Range("Q1")
If Dir(PathVerz, vbDirectory) "" Then 'Prüfung ob vorhanden
MsgBox "Verz. vorhanden"
Else
MsgBox "kein Verz"
MkDir (PathVerz & "\")
End If
End Sub
wenn ich speichern möchte, kommt Laufzeitfehler 75.
Wenn ich über meinen Explorer ins Netzwerkverzeichnis gehe, kann ich
Verzeichnis anlegen und auch löschen.
mfg
wolfgang