B4A Library [Class] File Explorer with visualization

Hi,

I created this class because I was frustrated by the File Dialog in the (great) Dialogs lib. With that class, you can customize everything (since you have the source code) and add new functions like rename, delete, create folder, etc.
Currently, the class can visualize picture and text files (or not if you set the option to false) when you select them.
You can make multiple selections.

If your activity contains a TabHost, loot at post #7.

Add this permission to the manifest for Android v4+:
AddPermission(android.permission.READ_EXTERNAL_STORAGE)

Since September 1st 2014, this class is completely free.

Enjoy,
Fred

 

[Erel]

Please check it with beta #8. It is available in the same link. The warning should still show but the program will continue.

 

[Informatix]

Hi Fred and/or Erel,

I am testing v3 Beta and found that the clsexplorer class version 1.3 gives and error when run with Debug (rapid) mode

I don't plan any support for the rapid debugger for now because I have a lot more important things to do, but I tried this class with the v3 and it seems to work despite the warning.

 

[BvdB]

Thanks Erel, will check it out.

 

[Richard Peck]

Hi,

I just tried to display the /data directory and I'm being denied. I'm using SuperSU, and I added code to your program to
give it SU permission, but it still doesn't work. Is there some thing special I need to do?

Thanks

 

[Informatix]

Hi,

I just tried to display the /data directory and I'm being denied. I'm using SuperSU, and I added code to your program to
give it SU permission, but it still doesn't work. Is there some thing special I need to do?

Thanks

I never tried. Maybe you have to change the permissions on this folder to read it. Or maybe the API function does not allow to read the contents so you have to do a "ll" and parse the result. Try to find some help in the xda-dev forum. It's the right place for this kind of question.

 

[MaxApps]

Hi Informatix

Is there a way to make the edittext accept a specific pattern (e.g. *.bmp), to make sure the name is correct for saving a file

Kind regards
Jakob

 

[Informatix]

Hi Informatix

Is there a way to make the edittext accept a specific pattern (e.g. *.bmp), to make sure the name is correct for saving a file

Kind regards
Jakob

The class does not include anything to check the extension, but you can easily add a test when the OK button is clicked. And much better: you could replace the EditText by a MaskedEditText, so you can filter what's typed when it is typed, or use a mask.

 

[Fabrice La]

Hi

I having this when using the FileExploxer Example
raiseEvent for pnlsvtouch returned null

 

[Informatix]

Hi

I having this when using the FileExploxer Example
raiseEvent for pnlsvtouch returned null

Could you explain how to reproduce the error?

 

[Fabrice La]

Start the project FileEplorer include in the 1st thread run as release (obfuscated) on my Galaxy3 Intl (Cyanogen 4.3.1). Click on Folders only and
raiseEvent for pnlsvtouch returned null
on the log ....

 

[Informatix]

Start the project FileEplorer include in the 1st thread run as release (obfuscated) on my Galaxy3 Intl (Cyanogen 4.3.1). Click on Folders only and
raiseEvent for pnlsvtouch returned null
on the log ....

As said on the first post of this thread, only the donationware version is compatible with obfuscation.

 

[schimanski]

Hello! I'm using fileexplorer-class 1.3 in my code, but it seems, that it is not possible to change the screenorientation when the explorer is open. I know, that it is always a problem with modal-dialogs, but it there a way to handle it?

Thanks for help...

 

[Informatix]

but it there a way to handle it?

There's no easy method. I made it once just to see if it was possible but can't remember exactly how I did and it was not perfect, so my answer is No.

 

[schimanski]

Ok, thanks...

 

[hanyelmehy]

Hi,
when i try to use v1.3
nothing happened when i make click on any folder or file
please check code

Sub Globals
    Dim dlgFileExpl As ClsExplorer
 
End Sub

Sub Activity_Create(FirstTime As Boolean)
    CreatFileExp
End Sub
Sub CreatFileExp

    dlgFileExpl.Initialize(Activity, "/mnt/sdcard", "", True, False, "OK")
    dlgFileExpl.DialogRect.Left = 5dip
    dlgFileExpl.DialogRect.Right = 100%x - 10dip
    dlgFileExpl.DialogRect.Top = 5dip
    dlgFileExpl.DialogRect.Bottom = 100%y-60dip
    dlgFileExpl.BackgroundColor = Colors.LightGray
    dlgFileExpl.BorderColor = Colors.RGB(128, 128, 128)
    dlgFileExpl.FolderTextColor = Colors.Black
    dlgFileExpl.FileTextColor1 = Colors.Blue
    dlgFileExpl.FileTextColor2 = Colors.White
    dlgFileExpl.DividerColor = Colors.Gray
    dlgFileExpl.Explorer
    If Not(dlgFileExpl.Selection.Canceled OR dlgFileExpl.Selection.ChosenFile = "") Then
        Msgbox("File:" & CRLF & dlgFileExpl.Selection.ChosenPath & "/" & dlgFileExpl.Selection.ChosenFile, "Your choice")
    End If
   
   

End Sub
Sub Activity_Resume
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   
End Sub
Sub Activity_KeyPress(KeyCode As Int) As Boolean
    If dlgFileExpl.IsInitialized Then
        If dlgFileExpl.IsActive Then Return True
    End If
End Sub

 

[Informatix]

Hi,
when i try to use v1.3
nothing happened when i make click on any folder or file
please check code

Sub Globals
    Dim dlgFileExpl As ClsExplorer

End Sub

Sub Activity_Create(FirstTime As Boolean)
    CreatFileExp
End Sub
Sub CreatFileExp

    dlgFileExpl.Initialize(Activity, "/mnt/sdcard", "", True, False, "OK")
    dlgFileExpl.DialogRect.Left = 5dip
    dlgFileExpl.DialogRect.Right = 100%x - 10dip
    dlgFileExpl.DialogRect.Top = 5dip
    dlgFileExpl.DialogRect.Bottom = 100%y-60dip
    dlgFileExpl.BackgroundColor = Colors.LightGray
    dlgFileExpl.BorderColor = Colors.RGB(128, 128, 128)
    dlgFileExpl.FolderTextColor = Colors.Black
    dlgFileExpl.FileTextColor1 = Colors.Blue
    dlgFileExpl.FileTextColor2 = Colors.White
    dlgFileExpl.DividerColor = Colors.Gray
    dlgFileExpl.Explorer
    If Not(dlgFileExpl.Selection.Canceled OR dlgFileExpl.Selection.ChosenFile = "") Then
        Msgbox("File:" & CRLF & dlgFileExpl.Selection.ChosenPath & "/" & dlgFileExpl.Selection.ChosenFile, "Your choice")
    End If
  
  

End Sub
Sub Activity_Resume
  
End Sub

Sub Activity_Pause (UserClosed As Boolean)
  
End Sub
Sub Activity_KeyPress(KeyCode As Int) As Boolean
    If dlgFileExpl.IsInitialized Then
        If dlgFileExpl.IsActive Then Return True
    End If
End Sub

I think that you are in the same case as above. Read post 50 and 51.

 

[hanyelmehy]

hi,
so v2.1 well solve problem
Thank you

 

[Informatix]

hi,
so v2.1 well solve problem
Thank you

Or you can add the underscore everywhere it is needed.

 

[hanyelmehy]

Hi,
can you please send last version
i send small donation :Confirmation number: 3M05052548462754T

 

[hanyelmehy]

Or you can add the underscore everywhere it is needed.

Hi,
still get same result
in log i get :raiseEvent for pnlsv_touch returned null