VB Programm - Directory-Inhalt auflisten

$oul

$oul

0
Hallo Leute, ich habe da mal drei Fragen. Es geht um das Programm im Anhang.


1. Ich habe in dem Programm eine Ordnerauflistung (rechts) und eine Auflistung von Datein (links), wie bekomme ich es hin, dass ich die Dateien sehe, die in dem Ordner sind, den ich rechts angeklickt habe?

2. Ist es möglich bei Doppelklick auf die ausgewählte Datei auf der linken Seite diese zu öffnen?

3. Ich habe oben einen About-Button, wie erstelle ich beim Klicken auf diesen ein Pop-Up-Fentser mit einem von mir gewähltem Text?

Bin für jede Hilfe dankbar, mfg $oul

EDIT: Achja, der Source ist natürlich im Anhang mit dabei, aber auch die .exe
 
Hi $oul

Mit ein paar wenigen Suchanfragen bei Google hättest du dir deine Frage auch ohne weiteres alleine beantworten können.

Aber ich will ja mal nicht so sein und hab mir kurz die Mühe gemacht.

Code: 
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Sub Command2_Click()
MsgBox ("man, du bist aber faul!")
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
Dim strPfad As String
    
    strPfad = Dir1.Path & "\" & File1.List(File1.ListIndex)

Call ShellExecute(Me.hWnd, "Open", strPfad, "", Dir1.Path, 1)
End Sub

So, ich hoffe ich konnt dir weiterhelfen.

Gruzz local
 
Ok danke schonmal, hab nur noch ein Problem, da ich es aus dem reinen von dir gelieferten Source nicht erkennen kann, wie du das gemacht hast, kann ich folgendes nicht realisieren.

Ich möchte auch noch eine Laufwerkswahl mit einbringen, je nach Laufwerk sollen eben dann auch die Ordner in diesem angezeigt werden. Hier noch mal die aktuelle Version von Directory. Wäre nett wenn du das auch noch hinbekommen könntest oder mir das erklären könntest.
 
Das funktioniert fast gleich wie beim Dir1_Change() ...

Also, sobald der User etwas in der Laufwerksauswahl ändert, soll die
DirListBox (Dir1) die Ordner auf dem ausgewählten Laufwerk anzeigen.

Code: 
Private Sub Drive1_Change()  ' Sobald was geändert wird, ..
Dir1.Path = Drive1.Drive         ' .. wird der DirListBox das neue Laufwerk zugewiesen. 
End Sub
Siehst du, wie hier:

Code: 
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Gruzz Local
 
OK, danke für die Hilfe. Weiß nicht ob du es bemerkt hast, hab aber im About als Dank (ich weiß ist nicht viel) deinen Namen erwähnt, danke nochmal.
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben