Visual Basic Forum

lustig · Newbie Anmeldedatum: 23.01.2012 Beiträge: 11

Hallo liebe Community...

Ich will einen Code haben der mit dem Klick auf einen Button entweder sich ein Fenster öffnet, indem man einen Ordnerpfad
öffnen kann, oder vorher den Pfad in ein Textfeld eingeben und mit dem Klick auf den Button alle Datein in diesem Ordner mit endung (bsp. .exe) in ein Textfeld schreiben lassen !!!

Ich bin noch ein Neuling und brauche bitte etwas hilfe !
Am besten mit erklärung damit ich es verstehe und daraus lerne !!!

Danke !
_________________

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 546

hi
du kannst ja nicht die socken anziehen wenn du die schuhe schon anhast

ja es ist mühsam alles zu lernen
aber dennnoch schaden die basics nicht Wink

der rest kommt mit der zeit

aber dass du nicht komplett entäuscht bist...

lustig · Newbie Anmeldedatum: 23.01.2012 Beiträge: 11

Sieht soweit echt super aus !
Aber ich will alle files, nicht nur.exe datein ! Auch .jpg usw. einlesen können !?

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 546

hi

für sowas würde ich mir eine funktion schreiben

lustig · Newbie Anmeldedatum: 23.01.2012 Beiträge: 11

Hey,
hoffe du bist noch da ^^
Also ich bin soweit gekommen das er beim klick auf den Button das Verzeichnis C öffnet.
aber wenn ich jetzt nen Ordner mit datein asuwähle bleibt er nicht stehen wenn es keine Ordner sondern nur Datein in deem ordner gibt und es steht auch unten kein "öffnen" sodass er den pfad in die Listbox oder das Textfeld schreibt !

Sry bin icht Anfänger .. so sieht mein Code aus:

Public Class Form1

Private Property cFile As String

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Function ActiveSheet() As Object
Throw New NotImplementedException
End Function

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Shell("explorer.exe C:\", vbNormalFocus)
Shell("explorer.exe " & Environ("appdata"), vbMaximizedFocus)

End Sub
Private Function GetFiles(ByVal sPath As String, ByVal sFileType As String) As String

Dim Ausgabe As String
Dim cFile As String

cFile = Dir(sPaht() & sFileType) ' Alle Exedateien im Verzeichnis ausgeben
Do While cFile <> "" ' Wiederholen bis cFile=""
Ausgabe = Ausgabe & vbNewLine & cFile
cFile = Dir() ' Aufruf der Funktion ohne Parameter!!
Loop

GetFiles = Ausgabe

End Function

Private Function sPaht() As String
Throw New NotImplementedException
End Function

Private Function Dir(ByVal textBox As TextBox) As String
Throw New NotImplementedException
End Function

Private Function Dir() As String
Throw New NotImplementedException
End Function

Private Function Dir(ByVal p1 As String) As String
Throw New NotImplementedException
End Function

End Class

lustig · Newbie Anmeldedatum: 23.01.2012 Beiträge: 11

#push : Hoffe man darf soetwas hier Crying or Very sad

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 546

hi
ich habe überhaupt keinen plan was du überhaupt machen willst

du hast einfach nur meinen code kopiert und unverändert gelassen

wie kommst du auf die idee dass der code jetzt genau das macht was du willst??

ich habe dir eine funktion geschrieben
die getfiles...

du musst diese funktion aufrufen auch

Button1_click

msgbox getFiles("C:\Testordner\","JPG")

da sind noch ein paar fehler drin!!
Private Function sPaht kannst löschen

in meiner funktion sollte sPath und nicht sPaht stehen

und so wie es aussieht kennt vb.net die dir funktion nicht mehr ^^

kurz und knapp
sag bitte mal genau was du machen möchtest

lustig · Newbie Anmeldedatum: 23.01.2012 Beiträge: 11

Ja sorry... wie gesagt beschäftige mich erst seit ein paar tagen mit VB !

Ich habe 1 Textfeld, 2 Button & 2 ListBoxen.

In das erste Textfeld soll man ganz normal einen Pfad schreiben können (xml pfad nachher) heißt:
bsp: /hallo/wiegehts/gut/

Wenn man jetzt auf den 1. Button klickt öffnet sich halt die Ordnerauswahl, man wählt einen Ordner
aus und klick auf "öffnen" dann sollten alle datein die in dem Ordner waren in die 1. listbox geschrieben werden !
Listbox1:
hallo.exe
tag.jpg
usw.

Und bei Klick auf den 2. Button sollte er dann die sachen kombiniert in die 2. Listbox schreiben:
/hallo/wiegehts/gut/hallo.exe
/hallo/wiegehts/gut/tag.jpg

Ich hoffe das war etwas verständlicher und du kannst mir helfen ^^

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 546

hi
für sowas gibt es eigene steuerelemente!

DirListbox
Drive
FileListbox

heissen in vb.net vl ein bisschen anders

aber was du definitiv in deinem Statium des wissens...
einen ordner im explorer anzeigen lassen
und dann einen ordner wählen und aus diesem datein anzeigen lassen

ausserdem ist das nicht die übliche prozedur Wink

lustig · Newbie Anmeldedatum: 23.01.2012 Beiträge: 11

ähhhh ja

_________________

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 546

gerne kein problem