fla, нормально определится. ".gz" будет.
cmd$=CurrentDir()
DebugLog cmd
DebugLog GetLocalFilePayh$("C:\Develope\Protean\Temp\Sadam\TopSecret\Bush.Idiot")
Function GetLocalFilePayh$(file$)
d$=CurrentDir()
s$=""
For i=1 To Len(file)
If Mid(file,i,1)<>Mid(d,i,1) Then s=s+Mid(file,i,1)
Next
Return s
End Function