Tam dizin adını mesaj olarak gösteren VBA kodu alternatifidir.
Option Explicit
Sub TamDizinAdiniMesajOlarakGoster()
Dim fileSystemObject As Object
Dim tamYol As String
Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
tamYol = fileSystemObject.GetAbsolutePathName("")
MsgBox tamYol
End Sub