B4A Library File handling library

A file handling library that includes support for rooted devices. MLfiles will use superuser as well as busybox or toolbox if they are installed. The correct system paths are automatically searched for available superuser packages.

Attached is my file handling library for access to the Android file system. It includes a more complete Samba implementation for remote file access to windows or other samba servers. Below is a list of methods and variables available in the library. There is a simple example app in the zip to demonstrate some of the functions. works on rooted or non rooted devices.

MLfiles is now Version 1.50. MLsmb is now Version 1.51. See the attachments at the end of this post.

From version 1.50 MLfiles and MLsmb are separate libraries. If you are using both in your project, you'll need to check both libraries in the IDE. The jcifs samba library routines add over 300k to the size of an app. By separating the 2 libraries you get to choose when or if to use the samba library (MLsmb) or not.

MLfiles
Author: Jem Miller - Missing Link Software
Version: 1.5

• MLfiles
  Fields:
  • ErrStr As String
    The StdErr interface used by most commands. This should
    contain any error message from the OS.
  • FSerror As String
    The value of stderror is set to this string after each call
    if it is empty, there was no error.
  • HaveBB As Boolean
    True if busybox is installed.
  • HaveRoot As Boolean
    True if GetRoot succeeds.
  • HaveTB As Boolean
    True if toolbox is installed.
  • OutStr As String
    The StdOut interface returned by some commands. This
    will contain what would normally be text output to a linux
    terminal.
  • fsStdOut As String
    Contains the Linux StdOut result of a command. This is
    what you would see in a Linux console if the command
    is successful.
  Methods:
  • Escape (fname As String) As String
    Escapes spaces, "(" and ")" characters in a filename
    returns the original string if already escaped.
  • Exists (Filename As String) As Boolean
    Checks to see if a file exists.
    Filename is the path and filename string
    Returns True on success
  • GetDiskstats (Path As String) As String
    Returns information of the given partition or pathname as a string formatted as
    Size Used Free Blocksize
    each field is separated with a single space.
    For example:
    

    Dim fs as MLFiles
    Dim tmp as String
    tmp = fs.GetDiskstats("/mnt/sdcard")

    In the example above, tmp Might return :
    8G 57M 8G 4096
    If busybox is present, the output will be in bytes for each field.
    Uses Root if available.
  • GetExtSd As String
    Returns the location of the external SD card mount point.
    This is a best guess based upon the standards being adopted in later releases of Android.
    Returns an empty string if not found.
  • GetFileDate (Fname As String) As Long
    Gets the last modified date and time of a file or directory.
    Returns the timestamp in milliseconds.
  • GetFileExt (FName As String) As String
    Returns the file extension (if available) of the file FName
    otherwise returns the entire path and filename sent
  • GetFileType (Fname As String) As String
    Gets the filetype of Fname.
    Returns file type as a String on success or Unknown on failure.
    Returns standard mime types such as:
    
    text/plain
    audio/mpeg
    text/XML
    image/jpeg
    
    as file types
  • GetFreespace (Path As String) As Long
    Returns the available space of the given partition/disk as a Long
    Path is the mount point or directory within a partition
    Note that some partitions are protected and will not return a value.
  • GetGigsFree (Path As String) As Double
    Returns the available space of the given partition/disk in gigabytes
    Path is the partition path or directory within a partition
    Returns the available space on the partition containing the Path in gigabytes.
    Note that some partitions are protected and will not return a value.
  • GetPerms (fname As String) As String
    Example:
    perms = GetPerms(filename)
    Returns a Linux style permission string "rwxrwxrwx" rwx for each of owner, group, and others.
    Use - for no permission, like "rw-r--r--" for owner read write, group read, and others read.
    Works with files or directories.
  • GetRoot
    Attempts to gain root access.
    Sets HaveRoot to True on success
  • GetSymlink (Fname As String) As String
    Gets the target of a symbolic link in string format.
  • IsReadable (Fname As String) As Boolean
    Returns True if file or directory is readable to this user process.
  • IsWritable (Fname As String) As Boolean
    Returns True if file or directory is writable to this user process.
  • ReadTxtFile (Fname As String) As String
    Reads a text file and returns its contents in a StringBuilder.
    Uses Root if available.
  • RootCmd (Command As String, Args As String, StdOut As StringBuilder, StdErr As StringBuilder, useBB As Boolean) As Boolean
    Executes a system command or program through the root adapter.
    Uses standard permissions if root is not available.
    Command - the command to execute
    Args - the arguments to the command
    StdOut - the text that would appear in a linux console
    StdErr - any error text returned by the command
    useBB - use busybox for the command if available
    Returns true on success.
  • Sdcard As String
    Returns the path to the external SD card if present as a string including the ending /
    like /mnt/sdcard/
    returns an empty string if not present
  • SdcardReady As String
    Returns a state string for the external sdcard.
    
    mounted = mounted and ready
    unmounted = card present but unmounted
    bad removal = sdcard removed without closing
    removed = no card present
    nofs = unformatted or unknown filesystem
    shared = mount point is currently shared with usb device
    unmountable = sdcard is present but damaged
    checking = media is being scanned
    mounted read only = sdcard is not writable
  • SetFileDate (Fname As String, Time As Long) As Boolean
    Sets file date and time on Fname to Time in milliseconds.
    Returns True on success.
  • Symlink (Linkname As String, Filename As String) As Boolean
    Creates the symbolic link Linkname from Filename as in Linux/Unix.
    Works on files or directories.
    Returns True on success.
    
    Uses Root if available.
  • Touch (Fname As String) As Boolean
    Creates an empty file with the current date and time.
    Fname is the name of the file to create. If the file exists the datestamp is changed to NOW.
    Returns True on success.
    Uses root if available.
  • WriteTxtFile (Fname As String, Txt As String) As Boolean
    Writes the contents of Txt to the file Fname.
    Fname must already exist or a FileNotFound exception is thrown.
    Uses root if available.
  • chmod (Filename As String, permissions As String) As Boolean
    Sets file permissions for a file or directory. Requires correct user access or root.
    Permissions are as Linux chmod numeric value.
    1 = execute
    2 = write
    4 = read
    
    644 = owner read/write (4 + 2), group read, other read
    755 = owner read/write/execute (4 + 2 + 1), group read/execute, other read,execute
    
    Uses Root if available.
  • cp (Src As String, Dest As String) As Boolean
    Copy a file from Src to Dest
    Returns True on success.
    Uses Root if available.
  • cpr (Src As String, Dest As String) As Boolean
    Recursive copy just like the Linux cp -r
    Copies all files and directories under the Src path to Dest.
    Works with directories, but is meaningless for files.
    Returns True on success.
    Uses Root if available.
  • createZipFile (path As String)
    Creates a backup zip of the directory path
  • dirEntries (Dir As String, Hidden As Boolean) As ArrayList
    Returns a list of formatted directory entries or an empty list on failure. As in :
    d---rwxr-x system sdcard_rw 0 2011-11-13 12:59 LOST.DIR
    Each element is in the form of a space separated string of
    permissions and type (drwxr-xr-x) where the first char indicates a directory, link, or regular file (d, l, or -).
    owner name
    group name
    file size
    date
    time
    file name
    Hidden is a boolean and will show ALL files hidden or not if True.
    Note that this method makes every attempt to fill in a size for symlinks and directories
    This means that you should always get 7 fields.
    Uses Root if available.
  • extractZipFiles (zip_file As String, directory As String)
    Unzips a backup zipfile to directory.
    Creates the destination DIR if needed.
  • extractZipFilesFromDir (zipName As String, fromDir As String, toDir As String)
    Unzips zipName from fromDir to toDir
  • isDir (Path As String) As Boolean
    Returns true if Path is a directory
  • isSymlink (Fname As String) As Boolean
    Returns True if file or directory is a symbolic link.
  • mkdir (Dir As String) As Boolean
    Make a directory and any needed parent directories
    Returns True on success
    Uses Root if available.
  • mv (Oldname As String, Newname As String) As Boolean
    Use to move or rename files or directories from Oldname to Newname.
    Returns True on success.
    Uses Root if available.
  • rm (Fname As String) As Boolean
    Remove (delete) a file or directory
    Directories must be empty
    Returns True on success.
    Uses Root if available.
  • rmrf (Fname As String) As Boolean
    Remove (delete) a directory recursively.
    ALL files and sub-directories will be deleted, EMPTY OR NOT.
    Returns True on success.
    Uses Root if available.
  • zipPeek (zipname As String) As ArrayList
    Opens a zip file and returns the list of its contents
    in a list.
    zipname is the full path and filename to be displayed
    Returns a formatted string of :
    path/Name, compressed FileSize, and DateTime as a single semicolon separated string
  Permissions:
  • android.permission.WRITE_EXTERNAL_STORAGE

The MLsmb library:

MLsmb
Author: Jem Miller - Missing Link Software
Version: 1.51

• MLsmb
  Events:
  • Success (Name as String As , Size as Long As )
  Fields:
  • FSerror As String
  Methods:
  • Escape (fname As String) As String
    Escapes spaces, "(" and ")" characters in a filename
    Returns the original string if already escaped.
  • Initialize
    Initializes internal variables
  • SmbCopy (FromFile As String, ToFile As String, eventname As String)
    Copies a file TO or FROM the Samba server, including samba to samba copying.
    Calls the Success event when completed.
    
    The event contains the filename and file size as:
    
    varname_Success(Name as String, Size as Long)
    
    put any code you need to execute on successful copy in the event sub.
    eventname_Success(Name As String, Size As Long)
  • SmbCredentials (Username As String, Password As String, Domain As String)
    Set the user name, password, and domain for a samba server.
    If set, this record will be passed to the server when the Smb methods are called.
  • SmbDelete (Url As String, SmbFile As String) As Boolean
    Deletes a file on the Samba server
    Returns True on success.
  • SmbIP (host As String) As String
    Returns the IP address of the Samba server
  • SmbList (SmbUrl As String, Pattern As String) As ArrayList
    Returns a list of SmbFile types on the samba server.
    Check the FSerror string to see if authentication failed or is needed.
    SmbUrl = the SMB path to list
    Pattern = an optional wildcard search pattern
  • SmbMove (From As String, To As String) As Boolean
    Moves or renames files or directories on the Samba server
    Returns True on success.
  • mkSmbDirs (Dir As String) As Boolean
    Makes a directory on the Samba server.
    This method will create any missing elements of the new path.
    Returns True on success.
  • smbInStream (Afile As String) As InputStream
    Creates an input stream from the file Afile that can be fed to another object.
    Returns null if not successful.
  Permissions:
  • android.permission.INTERNET
  • android.permission.WRITE_EXTERNAL_STORAGE
• SambaFile
  Fields:
  • TYPE_COMM As Int
  • TYPE_FILESYSTEM As Int
  • TYPE_NAMED_PIPE As Int
  • TYPE_PRINTER As Int
  • TYPE_SERVER As Int
  • TYPE_SHARE As Int
  • TYPE_WORKGROUP As Int
  Methods:
  • CanRead As Boolean
    True is the file or directory is readable.
  • CanWrite As Boolean
    True if the directory or file can be written to.
  • DiskFree As Long
    Returns the free space of this Samba share.
  • GetPath As String
    Returns the SMB path to this file or directory
  • GetServer As String
    Returns the Smaba server name
  • GetShare As String
    Returns the share name
  • GetType As Int
    Returns an Int representing the type of SMB object for this SambaFile from 0 through 6
    TYPE_FILESYSTEM, a regular file or directory
    TYPE_WORKGROUP, A workgroup
    TYPE_SERVER, a Samba server
    TYPE_SHARE, a shared directory
    TYPE_PRINTER, a shared printer
    TYPE_NAMED_PIPE, a named pipe
    TYPE_COMM, a communications device
  • IsFile As Boolean
    True if this is a file and not a directory.
  • IsHidden As Boolean
    True if this file or directory is hidden.
  • IsInitialized As Boolean
  • LastModified As Long
    Returns the modify date of this file
  • Name As String
    Returns the file name
  • Parent As String
    Returns the parent directory
  • ServerIp (Server As String) As String
    Returns the IP address of the server
  • Size As Long
    Returns the file size
  • isDir As Boolean
    Ckecks if this file is a directory.

The jcifs.jar file used in this library is available HERE

There are 2 test projects included in the zip file. One for MLfiles and one for MLsmb.


Version 1.1

• Many small changes have been made for efficiency. The GetRoot has been modified to try different methods of determining if a device has root access available. I added the Escape method in both the files and Samba objects to escape file names containing spaces, "(" and ")" characters. It returns the original string with no changes if nothing needs to be done, otherwise it escapes those characters with the "\" character so that linux and cifs can use the string.
  
  Version 1.2
  Added 2 new methods and changed 1.
  
  Added GetGigsFree(String Path) This returns the freespace of a partition in gigabytes as a double
  
  Added GetFreespace(String Path) This returns the freespace of a partition in bytes as a Long
  
  Changed GetDiskFree(String Path) to GetDiskstats(String Path) It still returns a formatted STRING of values.
  
  Updated the libtest.b4a project.
  
  Version 1.3
  Removed unused parameter from GetFreespace to avoid any confusion.
  
  Version 1.4
  Changed OS calls to look for busybox by default. Samsung and others do not offer common OS calls in their ROMs, but (at least in Samsungs case) they include busybox on the device, which solves this problem.
  
  Version 1.41
  Changed the cp and cpr methods. If the cp command is not present on the OS version, both use native methods to copy the file or do a recursive copy of the directory tree. These methods do not honor root access, so normal permissions are used.
  
  Version 1.42
  Minor change to the GetGigsFree and GetFreespace methods to try to ensure they return accurate results.
  
  Version 1.43
  Actually made version 1.42 changes work. About time!
  
  Version 1.44
  Added the Exists method to test if a file or directory exists.
  
  Version 1.45
  Fixes some zip extraction weirdness. NOTE: The order of fromDir and toDir have been changed! Also the destination directory will now be created if needed in both ExtractFilesFromDir() and ExtractFiles.
  
  Version 1.47
  Added GetExtSd method to find a mounted external (add-on_ sd card. Lots or rewrites and optimizations. The Samba routines are mostly rewritten and are now very reliable. Better authentication in all samba methods as well. More error correction and detection.
  
  Version 1.50
  Separated the local files and smb files into 2 libraries.

MLsmb Version 1.51
Corrected headers that got changed during the library separation process. Attached MLsmb-1.51.zip to correct this issue.

.

 

[HotShoe]

Hello,

I have a problem with this code

Dim MLFiles1 As MLfiles
MLFiles1.GetRoot

If MLFiles1.Exists("/data/misc/wifi/softap.conf") = True Then
   Dim WiFiConfig() As String
   Dim WiFiConfigStr As String
   WiFiConfigStr = MLFiles1.ReadTxtFile("/data/misc/wifi/softap.conf")
        Label_WiFiConfig.Text = "WiFi Network: " & WiFiConfig(0) & " Key: " & WiFiConfig(1)
End If

the file exists and is a text file
but the command "MLFiles1.ReadTxtFile" can not read its contents because "MLFiles1.Exists" in reality not find the file.

how can I fix this?

thanks

I'm not seeing a problem with the exists method. Are you sure you are being granted superuser access? Is the device rooted? Your code looks ok so you might check that mlfiles1.haveroot = true to make sure you have root access.

Keep me informed,

--- Jem

 

[biometrics]

Zip extraction failes and deletes zip file

Hi Jem,

I'm trying out 1.44 for unzipping. Both extractZipFiles and extractZipFilesFromDir fail to unzip the zip file and then deletes the zip file.

I can confirm the file exists before the call and is deleted after the call.

This is what I see in the B4A log (with filter off) after calling the extract functions:

GC_EXPLICIT freed 7K, 53% free 2580K/5379K, external 793K/1051K, paused 46ms
java.io.FileNotFoundException: /mnt/storage/sdcard/Our\ Player/Download/menu_3_23.zip (No such file or directory)
at org.apache.harmony.luni.platform.OSFileSystem.open(Native Method)
at dalvik.system.BlockGuard$WrappedFileSystem.open(BlockGuard.java:232)
at java.io.FileInputStream.<init>(FileInputStream.java:80)
at java.io.FileInputStream.<init>(FileInputStream.java:132)
at MLfiles.Fileslib.MLfiles.extractZipFiles(MLfiles.java:885)
at MLfiles.Fileslib.MLfiles.extractZipFilesFromDir(MLfiles.java:853)
at isenzo.download.main._libcontinuetimer_tick(main.java:1365)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:507)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:167)
at anywheresoftware.b4a.objects.Timer$TickTack.run(Timer.java:103)
at android.os.Handler.handleCallback(Handler.java:587)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:123)
at android.app.ActivityThread.main(ActivityThread.java:3647)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:507)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:839)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:597)
at dalvik.system.NativeStart.main(Native Method)

 

[HotShoe]

I'll try to get to the zip file error as soon as possible. My wife passed away yesterday morning and I'm not in the programming mode for the time being.

Thanks,

--- Jem

 

[biometrics]

So sorry to hear that Jem. My condolences.

I'm using the Archiver library in the mean time but would obviously prefer not to include duplicate libraries.

 

[cramcha]

Thanks HotShoe

Thank you so much for your code and your work.

:wav:

 

[HotShoe]

I have uploaded a new version of the library. See the first post in this thread for details.

--- Jem

 

[rpina]

Hi Jem,
I'm using your library to copy files over network, but when I try this code

Dim infile As String
infile=File.Combine(CartellaFoto,txtFileName.Text)
Dim outfile As String
outfile=fs.Escape(File.Combine("smb://192.2.0.36/Riccardo/",txtFileName.Text))
sf.SmbCopy(infile,outfile);

I get a input string format not correct during compiling process.

Can you help me?

Kind regards
Riccardo

Hi Jem,
I've solved my problem by rewriting this line of code

sf.SmbCopy(infile,outfile)

I don't know what happened, but now I can go on with development

 

[rpina]

Hi Jem,
I'm facing a problem while trying to access a network folder.
When in my code I call following line

l=sf.SmbList("smb://SVIL-02/Riccardo/",Null)

I receive in response from sf.FSerror

The system cannot find the file specified.

I've dowloaded smtst from post #36 and tryed it out.

All works well when listing from server like

l=sf.SmbList("smb://SVIL-02/",Null)

But when I try to execute same statement as first one, error is the same.

When I use GetType it correctly says it is a TYPE_SHARE

Moreover, in first post I cannot find version 1.45 of your library. Can you check it out?

Kind regards

Riccardo

 

[HotShoe]

Hi Jem,
I'm facing a problem while trying to access a network folder.
When in my code I call following line

l=sf.SmbList("smb://SVIL-02/Riccardo/",Null)

I receive in response from sf.FSerror



I've dowloaded smtst from post #36 and tryed it out.

All works well when listing from server like

l=sf.SmbList("smb://SVIL-02/",Null)

But when I try to execute same statement as first one, error is the same.

When I use GetType it correctly says it is a TYPE_SHARE

Moreover, in first post I cannot find version 1.45 of your library. Can you check it out?

Kind regards

Riccardo

I have corrected the missing 1.45 .zip file. I guess I forgot to attach it. I'll do a simple addition to the smbtest project tonight and attach it to the first post as well to show how to handle directories and some file handling. Sorry for the delay in replying, I'll try to be around more.

Thanks,

--- Jem

 

[HotShoe]

File manager source

I have posted a link to my file manager app project in the first post. It is a complete project that demonstrates the various file handling methods for local and SMB connections.

It is mostly complete, but unfinished, and the link appears after the method descriptions and just before the version revisions in the first post of this thread. I will never do anything with this project and it may serve to help some of you with new ideas or ways of handling files.

It works with non-rooted or rooted devices.

Enjoy,

--- Jem

 

[GMan]

Hi HotShoe,

i tried out several samples, but still couldnt get it work.
Simply want to read out the content of a file "testfile.txt" on a shared pc-folder named "testdir".

Here's my code so far:

Dim fs As MLfiles
Dim tmp As String
tmp = fs.ReadTxtFile("smb://notebook1/testdir/testfile.txt")
Msgbox(tmp,"Show content")

i grabbed before the path and showed it throug a messagebox to control it:
There stands (correct): smb://notebook1/testdir/testfile.txt

In the second messagebox where the content of the file should be showed stands nothing.
I got no error or similar, but also no content ;-)

 

[HotShoe]

Hi HotShoe,

Here's my code so far:

Dim fs As MLfiles
Dim tmp As String
tmp = fs.ReadTxtFile("smb://notebook1/testdir/testfile.txt")
Msgbox(tmp,"Show content")

You need to use the Samba routines to gain access to remote files. Get the smbtest.zip file attached to the first post for an example of how to use samba.

Thanks,

--- Jem

 

[biggiu]

hi,
sorry fro my english

i try to create a new directory in the SD CARD but the program capture the error :

Msgbox("ERRORE IN FASE DI CREAZIONE DELLA CARTELLA dbase","ERRORE")



I check the permission status is ---rwxr-

I believe that this is the cause of the problem but do not know how to solve it.

code :


'----- Verifica Se Dispositivo Possiede SDSIM

sdRoot = SysAmb.Sdcard

Msgbox(sdRoot,"AVVISO")

'----- Verifica Stato SD Sim

StaSds =
SysAmb.SdcardReady

Msgbox(StaSds,"")

If StaSds <> "mounted"Then

Msgbox("DISPOSITIVO PRIVO DI SD-CARD, IMPOSSIBILE PROSEGUIRE!","Errore")

ReturnFalse

EndIf

LisFil =
File.ListFiles (File.dirassets)

For n = 0To LisFil.Size-1

OriDba = LisFil.Get(n)
Next

'----- Verifica Esistenza Ambiente di Lavoro

esito = True

NomFile = sdRoot & "dbase/saledb.sqlite"

DirDba =
sdRoot & "dbase/"

IfSysAmb.Exists(NomFile) = FalseThen

'----- Creazione Cartelle di lavoro

w1 = sdRoot & "dbase"

Log(w1)

Msgbox(w1,"AVVISO")

esito = SysAmb.mkdir(w1)

Ifesito = FalseThen

Msgbox("ERRORE IN FASE DI CREAZIONE DELLA CARTELLA dbase","ERRORE")

ReturnFalse

EndIf

'----- Copia DataBase

File.Copy (File.DirAssets, "saledb.sqlite", DirDba,"saledb.sqlite")

esito = False

EndIf

 

[Turbo3]

Where can I get the jcifs.jar file? The mlsoft.sytes.net website is no longer available.

 

[Turbo3]

I guess no one has run the example code which has an error in it.

Activity.LoadLayout("main") should not be conditioned by If FirstTime.

It needs to run each time Activity_Create is called or you get a not initialized error on the ListViews when you try to add to them after an orientation change.

To fix the missing jcifs.jar file I found a jcisf-1.3.17.jar and renamed it.

 

[Turbo3]

Is this still the best way to find available free space on an SD card?

 

[HotShoe]

I guess no one has run the example code which has an error in it.

Activity.LoadLayout("main") should not be conditioned by If FirstTime.

It needs to run each time Activity_Create is called or you get a not initialized error on the ListViews when you try to add to them after an orientation change.

To fix the missing jcifs.jar file I found a jcisf-1.3.17.jar and renamed it.

Doesn't surprise me that it's in the firsttime clause, but I'll change that. There is a link in the first post to the file.

--- Jem

 

[Turbo3]

Yes, I tried that link before I posted but it was broken. I see now it is working again.

 

[frankb4a]

Hi,
i got a Problem with SmbCopy and the SmbCredentials.

I can read the SMBList with my Credentials, but it wont let me do Copy or create Folders aso.
FSError said "unknown Username or Password".

But my User/Pass/Domain should be correct, cause the SMBLIST works fine.
Also the SMB Lib (V1.0) let me Copy Files with the same Credentials !
(but unfortunately it doesn't Support a MKDir at Samba)

I can't get anything else than SMBList to work.

What can be wrong ?

rg
Frank

sf.SmbCredentials("Username","Pass","Domain")
    sf.SmbCopy(File.DirRootExternal & "/recovery.log","smb://Admin-Dev/Test/Test.log")

 

[HotShoe]

New version attached to first post. Many changes and fixes plus a couple additions.

--- Jem