Poliçe kaydetme formunda PDF yükle butonuna basıldığında bilgisayardaki herhangi bir PDF dosyasını seçerek belli bir klasöre kaydediyor ve kaydedilen dosya yolu userform üstündeki textbox_DosyaYolu'na atanıyor. Yapmak istediğim işlem ise orjinal PDF dosyasının adının Userform üstündeki Combobox_PlakaNo.Text değeri ile değiştirerek Örnek olarak Resimde de gösterildiği gibi
hedef klasöre 07 ABC 3908.Pdf olarak kaydedilmesini sağlamak. Yardımlarınız için teşekkür ederim.
Kod:
Dim DSec As FileDialog, SPath, DPath As String, objFSO
Set DSec = Application.FileDialog(msoFileDialogFilePicker)
Set objFSO = CreateObject("Scripting.FileSystemObject")
DSec.AllowMultiSelect = False
DSec.Title = "Dosya Seçiniz"
DSec.InitialFileName = "C:\"
DSec.Filters.Add "PDF Dosyaları", "*.pdf"
If DSec.Show = -1 Then
SPath = DSec.SelectedItems(1)
DPath = "D:\KT GRUP\POLİÇELER_PDF\"
objFSO.MoveFile SPath, DPath
Me.TextBox_DosyaYolu = DPath & objFSO.GetFileName(SPath)
Else
MsgBox "İşlem İptal Edildi..."
Exit Sub
End If
End Sub
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
