Zunächst mal ein großes SORRY an alle. Wieso? Ich habe schon ziemlich lange mehrere verschiedene Namen benutzt. Doch der Chris hat es bemerkt und ehrlich gesagt bin ich darüber sogar zufrieden. Denn als ich merkte das dieses Forum seriös und fachlich sehr gut ist, war es schon zu spät und ich zögerte mein wahren Namen zu nennen. Aber alle Vorgeschichten und Programmabläufe nochmals niederzuschreiben erschien mir als zu Zeitaufwendig.
Ich hatte einige Vorbehalte was Foren angeht, doch ich habe meine Meinung drastisch geändert. Zum Glück ist es nun raus, und ich hoffe ihr verzeiht mir und helft mir weiter so gut wie Ihr es bis jetzt tatet.
Also wer denn noch will, hier nun mein Problem:
Ich möchte per Button ein Verzeichnis anlegen. Erst wird geprüft ob es schon existiert. Wenn dieses nicht der Fall sein sollte wird unter der Zahlenkette die auf einem Tabellenblatt steht ein Verzeichnis angelegt. Das hat bisher wunderbar gefunzt. Doch nun möchte ich eine Datei vom oberen Verzeichnis in das gerade neu erstellte Verzeichnis kopieren. Und dort kommt die Fehlermeldung: Datei nicht gefunden!
Chris meinte ich solle Scripting Runtime aktivieren (vielleicht hilfst Du mir nochmal!?)
Hier ist der Code, Danke für die Hilfe.
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 "Y:\KalkulierteAnalysen\test.txt", "Y:\KalkulierteAnalysen\" & myFolder
Else
MsgBox ("Bitte wendet Euch an Andreas")
End Sub