Datei verschieben und neuen Pfad ausgeben
31.01.2019 14:57:13
Tim
ich lasse über ein Auswahlfenster ein Bild auswählen, welches nach Auswahl in einen anderen Ordner geschoben wird, das funktioniert.
Jetzt benötige ich aber den neuen Dateipfad des verschobenen Bildes in einer Textbox, wie kann ich das umsetzen ohne den Nutzer das Bild nochmal auswählen zu lassen?
Quasi verschieben und den neuen Pfad merken.
Private Sub CommandButton1_Click()
Dim strPfad As String
Dim fso As Object
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Bitte Bild auswählen"
.Filters.Clear
.Filters.Add "Bild Datei", "*.jpg" 'zeigt nur JPG Datein an
.Filters.Add "Bild Datei", "*.bmp" ' zeigt nur bmp Datein an
If .Show = -1 Then
strPfad = .SelectedItems(1)
End If
End With
Dateipfad_Bild.Text = strPfad ' fügt den Dateipfad in die Textbox ein
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile strPfad, "C:\Users\Test\Desktop\Test\"
End Sub