Fileopendialog ile foto seçip isimlendirerek kopyaama

[askm]

Hayırlı akşamlar.
Fileopendialog ile jpg veya jpeg foto seçip bunu excel dosyanın bulunduğu klasördeki FOTOLAR klasörüne B1 hücresindeki isim ile kaydetmek istiyorum.
Yardım edebilir misiniz.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kod işinizi görür mü?

Sub KOD()
dosya = Application.GetOpenFilename("Resim Dosyaları (*.jpg ; *.jpeg), *.jpg ; *.jpeg")
If dosya = False Then
    Exit Sub
Else
    uz = Split(dosya, ".")
    FileCopy dosya, ThisWorkbook.Path & "\FOTOLAR\" & Range("B1").Text & "." & uz(UBound(uz))
End If
End Sub

 

[askm]

Çok teşekkür ederim. Elinize sağlık.