|
Hallo,
WIE ??? Du brauchst mehr als eine Woche, um VBA zu Lernen ???
War ein Scherz ... war aber auch eine Steilvorlage ... 
Eine Frage hab ich dann doch ... Wieso ist deine Starterzeile (sender As System.Object, e As System.EventArgs)aus VB.NET ??? Daran solltest du unbedingt noch arbeiten ...
Also ... jetzt mal Scherz beiseite ... du hast dich in das FSO innerhalb einer Woche eingelesen und hast es geschafft, einen lauffähigen Code anzufertigen ... CHAPEAU !!! Da fragen andere noch nach Jahren, des vorherigen Fragens - auch wenns mit der Starterzeile noch nicht so klar geht.
Und dann scheiterst du tatsächlich an der Zusammenstellung der Dateipfade ... das ist doch jetzt nicht wahr ...
FileCopy(DatNam, ToPath)
DatNam - kommt aus DIR() ... da steht nur der Dateiname drin da fehlt der Pfad dazu.
ToPath - da fehlt noch der neu erstellte Unterordner und der Dateiname
Also ... rein theoretisch ... so: FileCopy(FromPath & DatNam, ToPath & "3D_Oberflächendaten\" & DatNam)
VG Sabina
|