Dosya Açma Ve Link verme

[juniourfalcon]

Slm arkadaşlar alttaki kod ta dosya comand butonuna basılınca dosya seçiyor yalnız text kutusuna sadece adı yazıyor ben tam yolunu istiyorum ve aktarınca link olarak aktarmasını istiyorum




Private Sub CommandButton1_Click()
Dim Dosya, Dosya_Sistemi

Dosya = Application.GetOpenFilename(FileFilter:="Tüm Dosyalar (*.*), *.*", Title:="Lütfen bir dosya seçiniz...")
If Dosya = False Then
MsgBox "Dosya seçimi yapmadığınız için işleminiz iptal edilmiştir.", vbExclamation
Exit Sub
Else
Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
textbox6 = Dosya_Sistemi.GetFileName(Dosya)
End If
End Sub

 

[Necdet]

Merhaba,

Tam yol için aşağıdaki gibi kullanınız.

Sub aaa()
    
    Dim Dosya
    
    Dosya = Application.GetOpenFilename(FileFilter:="Tüm Dosyalar (*.*), *.*", Title:="Lütfen bir dosya seçiniz...")
    If Dosya = False Then
        MsgBox "Dosya seçimi yapmadığınız için işleminiz iptal edilmiştir.", vbExclamation
        Exit Sub
    [a1] = Dosya
    
End Sub

 

[juniourfalcon]

bu verdiğiniz kod tam yolu göstermiyor dosya seçilince textboxsa adını göstermiyor

 

[juniourfalcon]

birde dosya yolunu linl olarak yapabilirmiyiz