Hocam siz kusura bakmayın rica ederim. Sayenizde bir şeyler öğreniyoruz. Ben kodu aşağıdaki gibi düzenledim ve çalıştırdım. Fakat yapmak istediğim şey tam olarak seçeceğim PDF dosyasını Aşağıdaki Kodda Belirttiğim klasöre yani "D:\KT GRUP\POLİÇELER_PDF\" klasörünün içine kopyalamak ve bu yolu Textbox_DosyaYolu.text ine yazdırmak. Şu anda seçtiğim dosyanın yolunu textboxa yazdırıyoruz. Fakat ben bu işlem bitince dosyayı aldığım konumdan sileceğim çünkü olması gereken konuma taşıdım zaten masaüstünde yada her neredeyse orda bulunmasına gerek yok artık. Daha sonra form üstündeki butona tıklayarak bu yeni dosya yolunda bulunan pdf yi tarayıcıda açacağım. Yardımlarınız için minnettarım. Çok teşekkürler.
Kod:
Private Sub PdfYukle()
Dim DSec As FileDialog, SPath As String
Set DSec = Application.FileDialog(msoFileDialogFilePicker)
DSec.AllowMultiSelect = False
DSec.Title = "Dosya Seçiniz"
DSec.InitialFileName = "D:\KT GRUP\POLİÇELER_PDF\"
DSec.Filters.Add "PDF Dosyaları", "*.pdf"
If DSec.Show = -1 Then
SPath = DSec.SelectedItems(1)
Me.TextBox_DosyaYolu.Text = 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)
