Auflistung eines Ordnerinhaltes & .EXE Dateien Aufrufen

[TimS.]

Erst mal Grundsätzlich: Ist es möglich das ich zum Beispiel ein Ordner mit 10 Bildern habe und die Namen der Bilder dann in meinem Programm in einer ListBox angezeigt bekomme?
Wie geht das? (Bitte im VB-Code)

2.Frage: Wie ruft man eine EXE Datei auf? (Auch VB-Code bitte)

Danke schon im Voraus
MFG TimS.

[TimS.]

gut das mit der exe datei hab ich rausgefunden! mit

Shell("Ort wo die exe-Datei liegt", AppWinStyle.NormalFocus)

Aber wegen dem ersten bin ich immer noch ratlos kann mir jemand einen tipp geben?

[ARCUS_L]

Hi !

Sub List()
Dim Pfad

Pfad = Dir("Pfad zum Ordner")

Do While Len(Pfad) > 0

Debug.Print Pfad

Pfad = Dir

Loop

End Sub

mfg ARCUS_L

[TimS.]

Danke schonmal aber ich hab da noch eine Frage:

Ich hab einen Button (B1) und eine Listbox (L1) und eine TextBox (T1)
Wie geht das nun, dass ich auf den B1 Button klicke und dann in der L1 Listbox die Bilder aus dem Pfad, der in T1 angegeben ist, angezeigt werden?

Das hab ich mir zuerst gedacht:

Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click

Dim Pfad
Pfad = Dir(T1.Text)

Do While Len(Pfad) > 0

            Debug.Print(Pfad)


            Pfad = Dir()

Loop
End Sub

Aber da Steht ja nirgendwo das das in die Listbox L1 geschrieben werden soll!

Bitte noch einmal um Hilfe

MFG Tim

[ARCUS_L]

Hi !!
Wie ich sehe arbeitest Du mit VB.NET
Wäre nett das anzugeben ! Dann tut man sich auch mit der Hilfestellung leichter.

Bei NET ist das relativ einfach über DirectoryInfo und FileInfo

Imports System.IO
Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click

        Dim diDirectories As New DirectoryInfo("Pfad zum Ordner")
        Dim afiFiles() As FileInfo

        Try

            afiFiles = diDirectories.GetFiles()

        Catch ex As Exception

            MsgBox(ex.Message)
            Exit Sub

        End Try

        Dim fi As FileInfo

        For Each fi In afiFiles
       
            Dim lvi As New ListViewItem(fi.Name)

            lvi.Tag = fi.FullName

            Listbox1.Items.Add(lvi)

        Next fi

End Sub

mfg ARCUS_L

[TimS.]

Danke klapp aber bekommt man das ListViewItem vor dem namen noch weg?

bzw.

Geht es das dann da nur z.b Bild1.jpg steht?

Edit:

Und wie ich gerade bemerkt hab kann man mit Shell keine Bilder aufrufen! Gibts dazu auch einen Befehl?

[ARCUS_L]

Hi !!

Sorry Ich weis nicht was Du meinst !

mfg ARCUS_L

[TimS.]

Jetzt steht da zum Beispiel: ListViewItem: {05.04.2005 Hund004.JPG}
Kann da (in der Listbox) nich auch nur der Name der Bildes stehen: 05.04.2005 Hund004.JPG

Und ich hab gerad bemerkt das man mit Shell nur exe dateien aufrufen kann womit kann mann bilder aufrufen?P

[ARCUS_L]

Hi !!

Jetzt hab ich`s

Sorry mein Fehler Du Verwendest ja eine Listbox und kein Listview !!!

dann kannst du

For Each fi In afiFiles

Dim lvi As New ListViewItem(fi.Name)

lvi.Tag = fi.FullName

Listbox1.Items.Add(lvi)

Next fi
durch

For Each fi In afiFiles

Listbox1.Items.Add(fi.Name)

Next fi

ersetzen


Zum zweiten versuchs mal mit:
Process.Start("Pfad zur Datei")

mfg ARCUS_L

[TimS.]

Danke das wars erstmal *g*
MFG TimS