Hallo zusammen,

folgende Problemstellung:
Es sollen in einem Userform Daten erfasst und eine zugehörige Bilddatei umbenannt und auf ein Netzlaufwerk kopiert werden.
Datenerfassung und Kopieren der Bilddatei funktionieren einwandfrei, das Umbenennen macht Probleme.
Ich lasse mein gepfuschtes Skript folgen.

Der Dateipfad wird über ein FileDialog ermittelt und in ein Textfeld geschrieben:
______________________________________________________

Private Sub Befehl23_Click()

Dim Tmp
Dim vrtPfad As Variant
Dim vrtSelectedItem As Variant
        
Set Tmp = FileDialog(msoFileDialogFilePicker)
With Tmp                        
    .AllowMultiSelect = False
    .Title = "Datei auswählen"
    .Show            

  For Each vrtSelectedItem In .SelectedItems '
        vrtPfad = vrtSelectedItem
        Next vrtSelectedItem
End With

Text63.Value = vrtPfad

End Sub

_______________________________________________

Soweit klappt alles wie gewünscht. Nun möchte ich nach einiger Datenerfassung die Datei umbenennen und hiernach verschieben. (Oder andersrum)

Isoliert klappt beides wunderbar, ich scheitere aber an der "Verknüpfung" der beiden Vorgänge.

Der Zielordner ist zwar statisch, aber das Umbenennen sowie der Startordner sollen dynamisch nach Benutzereintragung von statten gehen.

Ich lasse auch hierzu mein Gestümper folgen:

________________________________________________

Private Sub Befehl31_Click()

Dim strPfad As String      
Dim strZiel As String
Dim strKDNR As String
Dim fso As Object 

 strZiel = "C:\Hier Hin\"
strPfad = Text63 
strKDNR = Text32

' Versuche das Umbenennen z.B. per [name strPfad as date & "_" & strKDNR] o.ä. abzuwickeln scheitern kläglich.

 Set fso = CreateObject("scripting.filesystemobject")
 fso.CopyFile strPfad, strZiel
 Set fso = Nothing

DoCmd.Close

End Sub

___________________________________________________________________________________

Ich vermute ich bin nur zu doof um für die umbenannte Datei einen neuen String an eine Variable zu übergeben.

Über Hilfe wäre ich dankbar.

MFG