[FONKSiYON] Klasör seçip sadece dosya adının forma yazdırılması

Visual Basic

Dim dosyaadim As String  'BU İFADEYİ HATA ALDIĞIM İÇİN EKLEDİM.

bu değişkeni fonksiyonun en üstüne global olarak tanımlamalısınız. Mesajımda bahsetmiştim ama gözden kaçırdınız herhalde! Şu Şekilde;
fonksiyonun bulunduğu modülün en üstüne Option Explicit satırından hemen sonra. Ben size mesaj yazmadan test etmiştim fonksiyonu.

Visual Basic

Public dosyaadim As String

Fonksiyon:

Visual Basic

Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    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)
    dosyaadim = Mid(SelectFile, Len(.InitialFileName) - 4, Len(SelectFile))
    Else
    Exit Function
    End If
    End With
    Set fd = Nothing