B4A Library [Class] File Explorer with visualization

Informatix · Jun 24, 2012

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

padvou · Feb 13, 2017

Informatix said:
Could you explain? You can see in the demo that the back key closes the dialog by default.

Hello,
I seemed to have missed something somewhere, it looks ok now.

padvou · Feb 13, 2017

Hello,
If I use the longClick to delete a folder, how can the dlgFileExpl be refreshed in order to show that the folder has been removed?
EDit:

I have also added this code:

B4X:

Private Sub lstFichiers_LongClick(Item As Panel, ItemTag As Object)
    Dim lbl As Label
    If Item.GetView(0) Is CheckBox Then
        lbl = Item.GetView(1)
    Else
        lbl = Item.GetView(0)
    End If
    If csu.IsInitialized=False Then csu.Initialize
    csu.Call_SubPlus2(Main,"Delete_Pat",1000, Array("fname",lbl.Text))
    Return True
End Sub

in ClsExplorer.
The relevant Sub in main is this:

B4X:

Sub Delete_Pat(SelFolder2() As Object)
    Dim SelFolder As String=SelFolder2(1)
    'Dim result As Int    'Positive, cancel, negative
    Dim res = Msgbox2("Delete patent folder: " & CRLF & SelFolder.SubString(2),"Delete confirm", "Delete it", "", "Do not delete",Null)
    DoEvents
    If res=DialogResponse.POSITIVE Then
        ToastMessageShow(res, False)
        Try
            Dim fileList As List
            Dim N As Int
            fileList = File.ListFiles(File.DirRootExternal & "/DCIM/frameasure3/" & SelFolder.SubString(2) & "/")
            fileList.Sort(True)
            For N = 0 To fileList.Size-1
                File.Delete(File.DirRootExternal, "/DCIM/frameasure3/" & SelFolder.SubString(2) & "/" & fileList.Get(N))
                fileList.Get(N)
            Next
        Catch
            ToastMessageShow(LastException, False)
        End Try
        Try
            File.Delete(File.DirRootExternal & "/DCIM/frameasure3/",SelFolder.SubString(2) & "/")
        Catch
            ToastMessageShow(LastException, False)
        End Try
    else if res=DialogResponse.negative Then
        ToastMessageShow("Delete aborted", False)
   
    End If
   
   
    ToastMessageShow(res, False)
End Sub

However, the code shows the MsgBox, but continues running with a res value of -3, without waiting for the user to answer the MsgBox. So whatever is selected by the user has no effect.

Informatix · Feb 13, 2017

padvou said:
Hi again,
why is edtFilename an editText and not a label?

Because you cannot set the focus on a label.

padvou · Feb 15, 2017

Could you please post a code snippet for the deletion of a long-clicked item in the list of the explorer with a msgbox to answer yes or no?

Informatix · Feb 15, 2017

padvou said:
Could you please post a code snippet for the deletion of a long-clicked item in the list of the explorer with a msgbox to answer yes or no?

Sorry but I have no time for this these days and I don't think that could work (no modal dialog in the explorer). Your best option is to display a panel above the explorer with two buttons Yes and No.

padvou · Feb 15, 2017

Informatix said:
Sorry but I have no time for this these days and I don't think that could work (no modal dialog in the explorer). Your best option is to display a panel above the explorer with two buttons Yes and No.

I would sincerely appreciate it if you could please at least tell me how to refresh the contents of the explorer, after a deletion is made?

Informatix · Feb 15, 2017

padvou said:
I would sincerely appreciate it if you could please at least tell me how to refresh the contents of the explorer, after a deletion is made?

ReadFolder(strChemin) ?

padvou · Feb 16, 2017

Informatix said:
ReadFolder(strChemin) ?

Thank you.
Changing the Private sub ReadFolder(strChemin) should be enough to expose it to the Main activity to run it from there.

JOTHA · Sep 16, 2018

Hello Informatix,

Informatix said:
I created this class because I was frustrated by the File Dialog

I tried your Class, but there is always a ToastMessageShow "Unable to access folder" when I click on one of the buttons.

... DoEvents are deprecated, should I change them to "Sleep(0)" ?

Informatix · Sep 17, 2018

JOTHA said:
Hello Informatix,

I tried your Class, but there is always a ToastMessageShow "Unable to access folder" when I click on one of the buttons.

Read the first post of this thread. You forgot to add the permission.

JOTHA said:
... DoEvents are deprecated, should I change them to "Sleep(0)" ?

No. You can try but you will fail to make it work as expected.

Informatix · Sep 17, 2018

Please note that it exists a better version using the UltimateListView library (provided with the lib).

JOTHA · Sep 17, 2018

Informatix said:
Please note that it exists a better version using the UltimateListView library

... and whats the name of it?

JOTHA · Sep 17, 2018

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

You wrote it and I didn't see it.
Thank you!

Erel · Sep 17, 2018

You must request this permission at runtime. See the runtime permissions tutorial.

Informatix · Sep 17, 2018

JOTHA said:
... and whats the name of it?

UltimateListView.

Alexander66 · Apr 22, 2023

Hello. I got the file names;
MsgboxAsync(dlgFileExpl.Selection.ChosenFile) = (file1; file2; file3).
How to add and split file names in a ListView? Sorry for the auto-translation.

asales · Apr 27, 2023

Alexander66 said:
Hello. I got the file names;
MsgboxAsync(dlgFileExpl.Selection.ChosenFile) = (file1; file2; file3).

This code is weird, but you can split the files names using Regex.Split and add them in a listview.

Alexander66 · Apr 28, 2023

asales said:
This code is weird, but you can split the files names using Regex.Split and add them in a listview.

Thanks. Your answer helped me.

B4A Library [Class] File Explorer with visualization

Attachments

padvou

Active Member

padvou

Active Member

Informatix

Expert

padvou

Active Member

Informatix

Expert

padvou

Active Member

Informatix

Expert

padvou

Active Member

JOTHA

Well-Known Member

Informatix

Expert

Informatix

Expert

JOTHA

Well-Known Member

JOTHA

Well-Known Member

Erel

B4X founder

Informatix

Expert

Alexander66

New Member

asales

Expert

Alexander66

New Member

Similar Threads

B4A Library [Class] File Explorer with visualization

Attachments

Active Member

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Well-Known Member

Expert

Expert

Well-Known Member

Well-Known Member

B4X founder

Expert

New Member

Expert

New Member

Similar Threads

Privacy & Transparency

Privacy & Transparency