Link Açılmıyor

[Ersen]

Arkadaşlar basit bir ağ üzerinden dosya açma programı hazırlamak istiyorum. Dosya yolu adres kutusuna otomatik yazdırılıyor ancak tıklayınca açılmıyor. Aynı adres kopyala yapıştır yapılınca dosya açılıyor. Ekteki örnekte, bu sorunu çözecek arkadaşlara peşin teşekkürlerimi sunarım.

 

[celoy]

ad isimli alanın çift tıklandığı bölümüne

Dim dlg As FileDialog
Dim si As Variant
Dim FileName As String
Dim vrtSelectedItem As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.AllowMultiSelect = False
.ButtonName = "Dosya Yolu"
.Filters.Add "Dosya", "*.xls; *.doc; *.pdf; *.txt"
.Filters.Add "All", "*.*"
.FilterIndex = 1
.InitialFileName = [AD]
.InitialView = msoFileDialogViewThumbnail
.Title = "Dosya yolunu aktarmak istediğiniz dosyayı seçiniz..."
If .Show = True Then
For Each vrtSelectedItem In .SelectedItems
FileName = vrtSelectedItem
Next vrtSelectedItem
Me.AD = FileName
Me.AD = FileName
'Me.Resim131.Visible = False
End If
End With
............yazarak deneyiniz

 

[Ersen]

ad isimli alanın çift tıklandığı bölümüne

Dim dlg As FileDialog
Dim si As Variant
Dim FileName As String
Dim vrtSelectedItem As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.AllowMultiSelect = False
.ButtonName = "Dosya Yolu"
.Filters.Add "Dosya", "*.xls; *.doc; *.pdf; *.txt"
.Filters.Add "All", "*.*"
.FilterIndex = 1
.InitialFileName = [AD]
.InitialView = msoFileDialogViewThumbnail
.Title = "Dosya yolunu aktarmak istediğiniz dosyayı seçiniz..."
If .Show = True Then
For Each vrtSelectedItem In .SelectedItems
FileName = vrtSelectedItem
Next vrtSelectedItem
Me.AD = FileName
Me.AD = FileName
'Me.Resim131.Visible = False
End If
End With
............yazarak deneyiniz

Sorun çözüldü emeğiniz için teşekkür ederim.