AccessTr.neT

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.

2. mesajda verdiğim örnek kod ile dosyanızı istediğiniz yere taşır, istediğiniz gibi isimlendirirsiniz. Dosya yolunu atadığınız textbox orjinal dosyanızın adresi taşımak istediğiniz dosya yoluna bu kodları ekleyip istediğiniz isim ile kaydetmeniz için size referans teşkil etmesi içindi.

Dosya yolunuz belli yani 2. mesajdaki Spath tespit edilmiş
Siz hedef yolu (Dpath) (anladığım kadarı ile D:\KT GRUP\POLİÇELER_PDF\) belirleyip bu dosyayı oraya kriterlerinize göre adlandırarak kaydedebilirsiniz bu noktadan sonra.

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:\"   '==>burada yazacağınız adres dosya seçmek için açılır

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

Bu kod ile sırası ile açılan klasörden pdf dosyanızı seçersiniz, seçtiğiniz dosya D:\KT GRUP\POLİÇELER_PDF\ hedefine taşınır silmenize gerek kalmaz, Textbox_DosyaYolu'na yeni dosya adresi yazılır, dosya seçiminde iptal edilirse tüm işlem iptal edilir. Yapmak istediğiniz bu mudur açıkçası çok net anlamadım ne ifade etmek istediğinizi.

@atoykan Hocam aynen anladığınız gibi yapılmak istenen. Akşam eve geçince deneyip bilgilendireceğim. Çok Çok teşekkür ederim.

(25/05/2022, 09:58)Oğuz Türkyılmaz yazdı: [ -> ]@atoykan Hocam aynen anladığınız gibi yapılmak istenen. Akşam eve geçince deneyip bilgilendireceğim. Çok Çok teşekkür ederim.

@atoykan hocam dün mesaj atıp teşekkür edip konuyu kapatabilirsiniz demiştim ama o mesaj uçmuş. Tekrar teşekkür ederim. Konuyu kapatabilirsiniz.

Rica ederim Oğuz Bey, iyi çalışmalar