... in gambas?
Public Sub Button1_Click() Dim s As String If Dialog.OpenFile() Then Return s = File.Dir(Dialog.Path) Print sEnd