File Library

Edit 0 1 …
Older Version Newer Version

lbjoseph lbjoseph Oct 14, 2011 

=File Library [[user:lbjoseph]]= 
Below you can find some simple functions for working with files and file paths.

The functions are pretty self-explanatory, and the comments detail the use of them.

[[code format="lb"]]
Print File.Path$("C:\Some Path\In\Some\Obscure Folder\some file.txt")
' Prints: C:\Some Path\In\Some\Obscure Folder
Print File.Name$("some setting file.txt")
' Prints: some setting file.txt
Print File.Name$("C:\Some Path\some file.txt")
' Prints: some file.txt
Print File.Exists("some_file.txt")
' Prints 1 if the file some_file.txt exists in the current directory.
Print File.Exists("C:\some_file.txt")
' Prints 1 if the file some_file.txt exists in C:\.

Function File.Exists(str$)
    ' Returns non-zero if the specified file exists.
    Dim File.Lib$(1,1)
    folder$ = File.Path$(str$)
    If folder$="" Then folder$ = DefaultDir$
    Files File.Path$(str$), File.Name$(str$), File.Lib$()
    File.Exists = Val(File.Lib$(0,0)) > 0
End Function

Function File.Path$(str$)
    ' Returns the folder portion of the path given.
    ' No trailing back-slash.
    original$ = str$
    While Right$(str$,1) <> "\" And str$ <> ""
        If Right$(str$,1) = "." Then foundFile = 1
        str$ = Left$(str$, Len(str$)-1)
    Wend
    File.Path$ = original$
    If foundFile Then File.Path$ = Mid$(str$,1,Len(str$)-1)
End Function

Function File.Name$(str$)
    ' Returns the filename portion of the path given.
    pathLength = Len(File.Path$(str$))
    str$ = Right$(str$, Len(str$)-pathLength)
    File.Name$ = str$
    If Left$(str$,1) = "\" Then File.Name$ = Mid$(str$,2)
End Function
[[code]]