Android Code Snippet FileUtil SUBs

SubName: GetFilename

Description: Gets the Filename of Image or Page from Path

Sub GetFilename(fullpath As String) As String
   Return fullpath.SubString(fullpath.LastIndexOf("/") + 1)
End Sub
'
' Example
Log(GetFilename("http://www.domain.tld/SomePage.html")) ' -> SomePage.html

Tags: Filenames GetFilename

 

[DonManfred]

SubName: GetFileExt
Author: @thedesolatesoul

Description: Gets the Fileextension of Image or Page from Path

Sub GetFileExt(FullPath As String) As String
  Return FullPath.SubString(FullPath.LastIndexOf(".")+1)
End Sub
'
' ExampleLog(GetFileExt("http://www.domain.tld/SomePage.html")) ' -> html

Tags: Files GetFileExt

 

[DonManfred]

SubName: GetBasename

Description: Gets the Base Filenameof Image or Page from Path

Sub GetBasename(fullpath As String) As String
   Dim filename As String
   filename = GetFilename(fullpath)
   Return filename.SubString2(0,filename.LastIndexOf("."))
End Sub
' Depends on: GetFilename
' Example
'Log(GetBasename("http://www.domain.tld/SomePage.html")) ' -> SomePage

Tags: Files GetBasename
Depends on GetFilename

 

[DonManfred]

Subname: GetPath
Author: @thedesolatesoul

Description: Get the path of a file specified

Sub GetPath(Path As String) As String
   Dim Path1 As String
   If Path = "/" Then
      Return "/"
   End If
   L = Path.LastIndexOf("/")
   If L = Path.Length - 1 Then
      'Strip the last slash
      Path1 = Path.SubString2(0,L)
   Else
      Path1 = Path
   End If
   L = Path.LastIndexOf("/")
   If L = 0 Then
      L = 1
   End If
   Return Path1.SubString2(0,L)
End Sub
'
'Example
'Log(GetPath("/path/to/file/SomePage.html")) ' -> /path/to/file

Tags: GetPath Files

 

[DonManfred]

Subname Renamefile
Author: @marcick
Found: here

Description: Renames a file.

Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean
    Dim Result As Int
    Dim StdOut, StdErr As StringBuilder
    StdOut.Initialize
    StdErr.Initialize
    Dim Ph As Phone
    Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)
    If Result = 0 Then
        Return True
    Else
        Return False
    End If
End Sub

Example:

Dim Success as boolean
Success=RenameFile(File.DirRootExternal & "/path/oldfilename.txt", File.DirRootExternal & "/path/newfilename.txt")

Tags: rename file

 

[ibra939]

SubName: GetFilename

Description: Gets the Filename of Image or Page from Path

Sub GetFilename(fullpath As String) As String
   Return fullpath.SubString(fullpath.LastIndexOf("/") + 1)
End Sub
'
' Example
Log(GetFilename("http://www.domain.tld/SomePage.html")) ' -> SomePage.html

Tags: Filenames GetFilename

wonderful Looooooooool

 

[Mahares]

Dim Success as boolean
Success=RenameFile(File.DirRootExternal & "/path/oldfilename.txt", File.DirRootExternal & "/path/newfilename.txt")

Please note that this function works only if the file names do not have spaces.