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
|