вот пропатченная версия:
Function GetLocalFilePayh$(file$)
Replace(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
For i=1 To Len(d)
If Mid(file,i,1)<>Mid(d,i,1) And Mid(d,i,1)="\" Then s="..\"+s
Next
Return s
End Function
а также пропатченная Имперская функция
Function GetFilesInDir%(DirName$)
Local Dir=ReadDir(DirName)
If DIR=0
CloseDir (Dir)
Return 0
EndIf
Local file$=""
Local CNT%=0
While True
file$=NextFile$(Dir)
If file<>"." And file<>".." And file<>"" Then CNT=CNT+GetFilesInDir%(file)
If file$="" Then Exit
CNT=CNT+1
Wend
CloseDir (Dir)
Return CNT-3
End Function