Seçilen dosyanın ismini mesaj olarak gösteren VBA kodu alternatifidir.
Option Explicit
Sub SecilenDosyaninIsminiMesajOlarakGoster()
Dim dosya As String
Dim dosyaAdi As String
dosya = Application.GetOpenFilename
dosyaAdi = Dir(dosya)
MsgBox dosyaAdi
End Sub