You have to convert to a short filename and back.
Function NiceFileName$(file$)
size=Len(file)+100
temp=CreateBank(size)
GetShortPathName(file$,temp,size)
file$=PeekString(temp,0)
GetLongPathName(file$,temp,size)
s$=PeekString(temp,0)
FreeBank temp
Return s
End Function
Notify NiceFileName$("C:\WINDOWS\EXPLORER.EXE")
Function NiceFileName$(file$)
size=Len(file)+100
temp=CreateBank(size)
GetShortPathName(file$,temp,size)
file$=PeekString(temp,0)
GetLongPathName(file$,temp,size)
s$=PeekString(temp,0)
FreeBank temp
Return s
End Function
Notify NiceFileName$("C:\WINDOWS\EXPLORER.EXE")