ich habe in einem Ordner 4 Dateien.
Diese kopiere ich mittels u. a. Code in eine andere Datei:
Dim myFSO As Object 'benötigt für Übertragung der Dateien
Dim qFolder As String, tFolder As String 'benötigt für Übertragung der Dateien
Dim qFile As String 'benötigt für Übertragung der Dateien
qFile = "*.*" 'wählt alle Dateien
qFolder = Pfad10 'wählt den Quellordner in welchem die Dateien sind
'
tFolder = wksH.Range("AA6") 'wählt den Zielordner in welchen die Dateien übertragen werden
Set myFSO = CreateObject("Scripting.FileSystemObject") 'benötigt für Übertragung
myFSO.CopyFile qFolder & qFile, tFolder 'kopiert die Dateien in Quellordner und fügt sie in Zielordner ein so wie sie sind
qfile ist der Dateiname. Von diesem möchte ich die ersten 10 Stellen beim Übertragen entfernen.
Eine bisherige Variante bei 6 Stellen (myFSO.CopyFile qFolder & qFile, tFolder & Mid(qFile, 7)) funktioniert leider nicht.
Könnt ihr mir bitte helfen.
Gruss
Peter