Visual Basic Forum

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

Mein Code:
Visual Basic: [code]Dim pDir As New System.IO.DirectoryInfo("C:datatesting")
For Each pDire As IO.DirectoryInfo In pDir.GetDirectories()
Dim Name As String = IO.Path.GetFileName(pDire.FullName) ' <- !
' Fügt die vorhandenen Ordner hinzu
TreeView1.Nodes.Add(Name) '< ADDED THE FOLDER.-NAME
'Fügt die Files vom Orndername hinzu - Sprich die die sich da drinne befinen
Dim transtovar As String
transtovar = Name
Dim directory As New System.IO.DirectoryInfo(transtovar)
For Each file1 As System.IO.FileInfo In directory.GetFiles
If file1.Extension = ".txt" Or file1.Extension = ".TXT" Then
ListBox1.Items.Add(file1.Name)
'TreeView1.Nodes.Add(file1.Name)

'Dim listViewItem As New ListViewItem(file1.Name)
'listViewItem.SubItems.Add(file1.Name)
'ListView1.Items.Add(listViewItem)

End If
Next

Next[/code]

An sich funkitoniert er nur das Auflisten der Dateien in den jewaligen Ordner macht Probleme.
Visual Basic: [code]Name[/code]
Ist die Variable in der der jewalige Ordnername steht.
Verwendet wird es dann nocheinmal hier:
Visual Basic: [code]transtovar = Name
Dim directory As New System.IO.DirectoryInfo(transtovar)[/code]

Das Problem ist das es mit ner Variable aus irgendeinem Grund nicht klar kommt? Trage ich den Pfad bzw. den Ordner selber ein ist das kein Problem nur wenn ich ihn in der Variable übergeben will?
Woran liegt das?

Mfg. HoL

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Namenskonflikt?

Nenne Variablen NIEMALS so. Benenne sie hald nach strName bzw. sName.
Das Selbe mit directory.

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

Habe ich umbenannt war allerdings trotzdem nicht der Fehler?
Geht immer noch nicht?

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Nimm die Funktion, die geht 100%ig

Visual Basic: [code]
Private Function DateienAuslesen(ByVal Pfad As String)
Dim strDateien() As String

livDateien.Items.Clear()

strDateien = System.IO.Directory.GetFiles(Pfad)

For i As Double = 0 To strDateien.GetUpperBound(0)
Dim Buffer() As String
Buffer = strDateien(i).ToString.Split("")
If Buffer(Buffer.GetUpperBound(0)).EndsWith("txt") = True Or _ ' ob man das brauch, ka.. habs mal von dir übernommen
Buffer(Buffer.GetUpperBound(0)).EndsWith("TXT") = True Then

livDateien.Items.Add(Buffer(Buffer.GetUpperBound(0)))
End If
Next
End Function[/code]

Du brauchst nur nen Listview (livDateien)

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

Danke,
nur ich komm damit gerade net so zurecht ich brauch das beides Getrennt den Ordner und die Files?
Außerdem hab ich net so ne Peilung wie man mit Funktionen arbeitet? [img]/ohmy.gif[/img]

Visual Basic: [code] Dim pDir As New System.IO.DirectoryInfo("C:datatesting")
For Each pDire As IO.DirectoryInfo In pDir.GetDirectories()
Dim sName As String = IO.Path.GetFileName(pDire.FullName) ' <- !
TreeView1.Nodes.Add(sName)

'Hier werden die Dateien ausgelesen
Dim strDateien() As String
livDateien.Items.Clear()
strDateien = System.IO.Directory.GetFiles(sName)

For i As Double = 0 To strDateien.GetUpperBound(0)
Dim Buffer() As String
Buffer = strDateien(i).ToString.Split("")
If Buffer(Buffer.GetUpperBound(0)).EndsWith("txt") = True Or Buffer(Buffer.GetUpperBound(0)).EndsWith("TXT") = True Then ' ob man das brauch, ka.. habs mal von dir übernommen
livDateien.Items.Add(Buffer(Buffer.GetUpperBound(0)))
End If

Next 'Next von der 2. Schleife
Next 'Next der ersten Schleife[/code]

Visual Basic: [code]strDateien = System.IO.Directory.GetFiles(sName)[/code]
Genau hier stoppt er?

Das ist mein Aktueller Code, doch leider sagt er immer noch das er Teile des Pfads nicht finden konnte!?

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Tja, und was zeigt er an?

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

Das kommt dann?

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Bei sName muss nen Pfad hin.

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

Wie ich ja bereits mehr mals erklärte ist das sName der Pfad in einer Variable!
Ich muss den Pfad aus der Variable nehmen? :confused:
Und das geht ja eben net!

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Denn ist irgendwas am Pfad falsch (die ja der Fehler schon sagt :/). Überprüfe mal, ob der Pfad stimmt.

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

100% stimmt er - der erste Teil:

Dim pDir As New System.IO.DirectoryInfo("C:datatesting")
For Each pDire As IO.DirectoryInfo In pDir.GetDirectories()
Dim sName As String = IO.Path.GetFileName(pDire.FullName) ' <- !
TreeView1.Nodes.Add(sName)

Bekommt den richtigen Pfad und funktioniert auch wunderbar!
Nur halt der 2. Teil kommt damit nicht zu recht trage ich den Pfad aber selber ein tut er es?

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Da steht GetFileName, meine Function erwartet Ordner, keine Dateien.

HoL|FsC · Tutorial Leser Anmeldedatum: 15.06.2008 Beiträge: 22

Upppps da war mein Fehler ohman wie Peinlich entschuldige bitte!

Eine Frage noch:
Wie kann ich beim Treeview Sub Items hinzufügen per code?
Und wie kann ich das beim ListView machen?
Sagen wir mal ich hab biem ListView 3 Zeilen und in jede Zeile soll was unterschiedliches wie mache ich dat den?

Aber echt super support hier danke euch!

Mfg.
HoL

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Listview
Visual Basic: [code]
ListView1.Columns.Add("1")
ListView1.Columns.Add("2")
ListView1.Columns.Add("3")
ListView1.Items.Add("A")
ListView1.Items.Item(0).SubItems.Add("B")
ListView1.Items.Item(0).SubItems.Add("C")[/code]

Treeview
Visual Basic: [code]
Dim Node1, Node2 As TreeNode
Node1 = TreeView1.Nodes.Add("A")
Node1.Nodes.Add("B")
Node2 = Node1.Nodes.Add("C")
Node2.Nodes.Add("D")[/code]