Ich haben die Frage schon öfter gestellt, schon oft Antworten bekommen und es hat leider nicht genützt. ES FUNZT NICHT !!!!
Aber ich stelle die Frage nochmal, Ihr seid meine letzte Hoffnung.
Also:
Ich möchte per Button- Druck ein Verzeichnis anlegen lassen mit dem Namen der in einer Zelle steht (FUNZT !!)
Anschließend soll eine Datei in das gerade neu geschaffene Verzeichnis kopiert werden. (DAS FUNZT NICHT!!!)
hier kommt der Code:
Sub Sicherung()
Dim defPath As String, myFolder As String
Dim Fso As Object
defPath = "Y:\KalkulierteAnalysen\"
myFolder = Range("H19")
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(defPath & myFolder) = False Then
MkDir defPath & myFolder
FileCopy defPath & "test.txt", defPath & myFolder & "\test.txt"
Else
MsgBox ("Bitte wendet Euch an Andreas")
End If
End Sub
Doch Excel sagt nur Laufzeitfehler ´53 "Datei nicht gefunden"
Bitte helft mir, Ihr könnt Euch sogar richtig Zeit lassen, denn ich kann erst morgen wieder reinschauen, ein schönen Abend noch!
Gruß Andreas.