Hackerboard Wiki HaboBlog
Hackerboard bei Facebook Hackerboard bei Google+ Hackerboard bei Twitter

[HaBo]

 
(In)security allgemein Sicherheit, Anonymität im Netz. Schutz und Maßnahmen. Prävention und Konzepte. Sicherheitsarchitekturen allgemein und auf der Netzwerkebene.

VB Programm - Directory-Inhalt auflisten

Diskussion: VB Programm - Directory-Inhalt auflisten im Forum (In)security allgemein, in der Kategorie Security Area; Anzeige Hallo Leute, ich habe da mal drei Fragen. Es geht um das Programm im Anhang. 1. Ich habe in ...

Antwort
Alt 12.05.05, 15:54   #1 (permalink)
 
Benutzerbild von $oul
 
Registriert seit: 19.12.04
$oul Leistung: Z3
$oul eine Nachricht über ICQ schicken
Likes: 2
Standard VB Programm - Directory-Inhalt auflisten

Anzeige

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

Angehängte Dateien
Dateityp: zip Directory.zip (4,9 KB, 47x aufgerufen)
__________________
Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist.
Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.
$oul ist offline   Mit Zitat antworten
Alt 12.05.05, 16:55   #2 (permalink)
 
Registriert seit: 19.09.04
l0cal Leistung: Facit NTK
Likes: 0
Standard

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
l0cal ist offline   Mit Zitat antworten
   
HaBOT
 
- Anzeige -

Werbung ist gerade online    
Alt 12.05.05, 17:36   #3 (permalink)
Themenstarter
 
Benutzerbild von $oul
 
Registriert seit: 19.12.04
$oul Leistung: Z3
$oul eine Nachricht über ICQ schicken
Likes: 2
Standard

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.
Angehängte Dateien
Dateityp: zip Directory.zip (6,4 KB, 27x aufgerufen)
__________________
Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist.
Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.
$oul ist offline   Mit Zitat antworten
Alt 12.05.05, 18:15   #4 (permalink)
 
Registriert seit: 19.09.04
l0cal Leistung: Facit NTK
Likes: 0
Standard

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
l0cal ist offline   Mit Zitat antworten
Alt 12.05.05, 18:17   #5 (permalink)
Themenstarter
 
Benutzerbild von $oul
 
Registriert seit: 19.12.04
$oul Leistung: Z3
$oul eine Nachricht über ICQ schicken
Likes: 2
Standard

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.
__________________
Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist.
Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.
$oul ist offline   Mit Zitat antworten
Alt 12.05.05, 20:00   #6 (permalink)
 
Registriert seit: 19.09.04
l0cal Leistung: Facit NTK
Likes: 0
Standard

Zitat:
Original von $oul
OK, danke für die Hilfe.
Keine Ursache.

Zitat:
Weiß nicht ob du es bemerkt hast, hab aber im About als Dank (ich weiß ist nicht viel) deinen Namen erwähnt, danke nochmal.
Hatte ich nicht bemerkt. Besten Dank dafür. ;-)

Local
l0cal ist offline   Mit Zitat antworten
Alt 12.05.05, 20:02   #7 (permalink)
Themenstarter
 
Benutzerbild von $oul
 
Registriert seit: 19.12.04
$oul Leistung: Z3
$oul eine Nachricht über ICQ schicken
Likes: 2
Standard

Gern geschehen, hast mir ja viel geholfen.
__________________
Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist.
Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.
$oul ist offline   Mit Zitat antworten
Antwort
   
- Anzeige -

Werbung ist gerade online    

[HaBo] » Security Area » (In)security allgemein » VB Programm - Directory-Inhalt auflisten
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks sind aus
Pingbacks sind aus
Refbacks sind aus


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Kommando zum Laufwerke auflisten mauralix Windows 2 24.05.09 15:16
Gelockte User auflisten Serow Linux/UNIX 8 10.10.08 20:40
[C/C++] Ordner Hierarchie auflisten anthor Code Kitchen 4 09.11.07 00:29
IMAP mailordner auflisten Xenosmilus Internet Allgemein 6 10.01.06 20:05
IP Adresse bekannt => Verzeichniss auflisten vangelis Internet Allgemein 2 23.12.05 16:29


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61