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.