PureBasic Forums - English

Code: Select all

; This (Mac/Linux) bug is very unlikely to happen and cause big problems, but I had to report…
Debug GetFilePart(~"/folder/a\"b") ; result: a

Code: Select all

Debug CheckFilename(~"a\"b") ; result: 0 on windows 

Code: Select all

RunProgram("open", String_With_Single_Or_Double_Quotes ,"")

Code: Select all

; Workaround for GetFilePart bug
Procedure.s CheckGetFilePart(p$,ne=#PB_FileSystem_NoExtension)
   Protected pp$ = GetPathPart(p$), fp$ = GetFilePart(p$)
   If StringByteLength(pp$+fp$) <> StringByteLength(p$)
      ProcedureReturn ""
   EndIf
   ProcedureReturn GetFilePart(p$,ne)
EndProcedure

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

s.s= CheckGetFilePart(~"/folder/a\"b")
Debug "Result: "+ s

s= CheckGetFilePart("/folder/ab.txt", 0)
Debug "Result: "+ s

s= CheckGetFilePart("ab.txt")
Debug "Result: "+ s