Wenn Name von Datei bereits vorhanden,dann..
04.03.2019 11:14:52
Datei
ich habe ein Makro welches mich Bilder auswählen lässt und anschließend in einen Ordner schiebt, das funktioniert problemlos. Jetzt kann es aber sein, dass es diese Bezeichnung in dem Ordner bereits vorhanden ist. Wenn dem so ist kommt ein Fehler.
Besteht die Möglichkeit erst zu prüfen ob es diese Bezeichnung bereits gibt und wenn ja das ausgewählte Bild umbenennen damit es sich im dafür vorgesehenen Ordner ablegen lässt!?
Sub Artikelbild_auswählen_und_verschieben()
Dim strPfad As String
Dim NewPfad As String
Dim Datei As String
NewPfad = "C:\Testprogramm\Datenbanken\Artikelbilder\"
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)
Datei = Dir(strPfad)
End If
End With
If Datei = "" Then 'hör auf
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile strPfad, NewPfad
UserForm6.Dateipfad_Bild.Caption = NewPfad & Datei 'Dateipfad_Bild.Text = strPfad ' fügt _
den Dateipfad in die Textbox ein
UserForm6.Image1.Picture = LoadPicture(NewPfad & Datei) 'lädt das Bild als Vorschau
End Sub
Anzeige