So erhalten Sie eine Liste aller image-Dateien für eine Diashow

Dieser code funktioniert, in dem Sinne, dass es crawlt die Verzeichnisse. Aber es wird eine Ausnahme auf alle Unterverzeichnisse, und kann wieder alle Dateien. Ist das ein Berechtigungsproblem, oder gibt es etwas falsch in meinem code?

ES-Datei-manager zeigt die Dateien an, es sind mindestens 3 Ordner mit Bildern in Ihnen.

Sub AddImagesToMap(Dir Als String) Als Karte'crawl Baum für Bilder

Dim fn As String , i As Int

Dim CRList As List, Ext As String

Try

    CRlist.initialize

    CRList=File.ListFiles(Dir)

    For i = 0 To CRlist.Size-1'jpg,png and gif

        fn=CRList.Get(i)

         Select fn     'ignore some system folders

            Case "/dev"   

            Case "/proc"

            Case "/sys"

            Case "/system"

            Case Else

                If File.IsDirectory(Dir,CRList.Get(i)) Then

                    Log("Dir:"&fn)

                    AddImagesToMap(fn)

                Else

                    Log(fn)

                    Ext= common.FileExt(fn)

                    If ext.ToLowerCase="jpg" OR ext.ToLowerCase="png" OR ext.ToLowerCase="gif" Then

                        Imagelist.Put(fn, Dir)

                    End If

                End If
        End Select

    Next

Catch

    Log ("error:"&Dir)

End Try

End Sub

InformationsquelleAutor GS106 | 2011-10-31
  1. 0

    Ich glaube, dies wird dein problem lösen: wenn Sie suchen, um zu sehen, ob ein Verzeichnis alle Dateien, kann es leer sein. Auch ich verwendet die Datei.ListFiles-Funktion. Wenn ein Ordner leer ist, gibt es eine nicht initialisierte Ergebnis, wenn Sie versuchen mit einer nicht initialisierten variable zu einer Ausnahme führen. Hier ist, was ich getan habe:

    f1 = File.ListFiles(x)
If f1.IsInitialized=False Then
    f1.Initialize
End If

    Übrigens, wenn ich versuche zu verstehen, was die Datei.ListFiles Funktionen dieser code, den Sie geschrieben am B4A war das einzige Beispiel, das ich finden konnte. Also vielen Dank, und ich hoffe, das löst dein problem.

    InformationsquelleAutor dagnabitboy
  2. 0

    Nutze ich diese, um meine mp3-amd m4a Musik-Dateien aus meinem Musik-Ordner.

    Sub Activity_Create(FirstTime As Boolean)
  ListView1.Initialize("ListView1")
  Dim GD As GradientDrawable
  GD.Initialize("TR_BL", Array As Int(Colors.Gray, Colors.LightGray))
  Activity.Background = GD
  ListView1.ScrollingBackgroundColor = Colors.Transparent
  Dim Bitmap1 As Bitmap
  Bitmap1.Initialize(File.DirAssets, "button.gif")

  ListView1.SingleLineLayout.ItemHeight = 50dip
    ListView1.SingleLineLayout.Label.TextSize = 20
    ListView1.SingleLineLayout.Label.TextColor = Colors.Blue
    ListView1.SingleLineLayout.Label.Gravity = Gravity.LEFT
  ListView1.FastScrollEnabled = True

  root=File.DirRootExternal
  filePath = root & "/music/"

  FindFolder(filePath,"")

  Activity.AddView(ListView1, 0, 0, 100%x, 100%y)

End Sub

Sub FindFolder(myPath As String, subfolder As String) As String
  Dim fileList As List
  Dim i As Int
  Dim p,f As String

  fileList = File.ListFiles(myPath)
  fileList.Sort(True)

  For i = 0 To fileList.Size-1
    p = myPath
    f = fileList.Get(i)

    If File.IsDirectory(p, f) Then
      p = p & "/" & f
      p = FindFolder(p, subfolder)  '<---recursive
    Else
      If f.EndsWith("m4a") OR f.EndsWith("mp3") Then
        album = p.SubString(p.LastIndexOf("/")+1) 'treat folders names as artist or album
        song = f.SubString2(0,f.LastIndexOf(".")) 'treat files as musc remoce extension name
        ListView1.AddSingleLine(album & " : " & song)
      End If
    End If
  Next

End Sub
    InformationsquelleAutor user1022605
  3. 0

    Ich weiß, dass ist ein bisschen spät, aber ich fand es heraus.
    Hier ist, wie kann ich alle Dateien:

    Sub AddImagesToMap(Dir As String) 'crawl tree for files
Dim fn As String , i As Int
Dim CRList As List
Try
    CRList.initialize
    CRList=File.ListFiles(Dir)

    For i = 0 To CRList.Size-1'jpg,png and gif
        fn=CRList.Get(i)
                If File.IsDirectory(Dir,CRList.Get(i)) Then
                    Log("Dir: "&fn)
                    AddImagesToMap(Dir & "/" & fn)
                Else
                        Log(fn & " - " & Dir)
                End If
    Next
Catch
    Log ("Error: "&Dir)
End Try
End Sub

    Hoffe, dass ich dazu beigetragen, dass eine Menge Leute mit der gleichen Frage.

    EDIT: Hier eine bessere version von mir. Hier habe ich sozusagen die Datei-Typen:

    Sub AddImagesToMap(Dir As String)
Dim fn As String , i As Int
Dim CRList As List, Ext As String
Try
    CRList.initialize
    CRList=File.ListFiles(Dir)

    For i = 0 To CRList.Size-1
        fn=CRList.Get(i)

                If File.IsDirectory(Dir,CRList.Get(i)) Then
                    AddImagesToMap(Dir & "/" & fn)
                Else

                If fn.Contains(".") Then
                Ext=fn.SubString(fn.LastIndexOf("."))
                End If

                Select Case Ext

                Case ".jpg"
                    Log(fn & " - " & Dir)

                Case ".png"
                    Log(fn & " - " & Dir)

                End Select

                End If
    Next
Catch
    Log ("Error: "&Dir)
End Try
End Sub
    InformationsquelleAutor Fusseldieb
Schreibe einen Kommentar