05-04-2019, 12:45
Merhaba,
Textbox(dosya_adi) alanına tıklandığında olay yordamına public function tanımlayarak spesifik bir klasörü açmasını ve seçtiğim 1 dosyanın(herhangi bir format olabilir) adının dosya alanına yazdırılmasını istiyorum. Bunun aşağıdaki şekilde bir fonksiyon oluşturup tıklandığında yordamına call selectfile yaptım. Ancak dosya adını yazdıramadım. Fonksiyon kodu yorumumda nasıl bir revize yapmamı önerirsiniz?
Public Function selectfile() As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.Title = "Lütfen Dosya Seçiniz"
.InitialFileName = "C:\Users\abc\Desktop\Access Works\Ek"
If .Show = True Then
selectfile = .SelectedItems(1)
Me.Dosya = Selectfile
Else
Exit Function
End If
End With
Set fd = Nothing
End Function
Textbox(dosya_adi) alanına tıklandığında olay yordamına public function tanımlayarak spesifik bir klasörü açmasını ve seçtiğim 1 dosyanın(herhangi bir format olabilir) adının dosya alanına yazdırılmasını istiyorum. Bunun aşağıdaki şekilde bir fonksiyon oluşturup tıklandığında yordamına call selectfile yaptım. Ancak dosya adını yazdıramadım. Fonksiyon kodu yorumumda nasıl bir revize yapmamı önerirsiniz?
Public Function selectfile() As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.Title = "Lütfen Dosya Seçiniz"
.InitialFileName = "C:\Users\abc\Desktop\Access Works\Ek"
If .Show = True Then
selectfile = .SelectedItems(1)
Me.Dosya = Selectfile
Else
Exit Function
End If
End With
Set fd = Nothing
End Function