Alle Dateien neben meiner exe in Listview listen

lace · 29. November 2011, 15:17

Hallo Leute,

ich will mich heute mal an etwas neues heran wagen:
Ich habe in meiner Form ein Listview mit 3 Spalten: ID | Filename | Size

Ich möchte gerne, dass mein Programm beim Starten alle Dateien in seinem Ordner dort reinschreibt, in dem es sie in ID durchnummeriert, bei Filename den Dateinamen reinschreibt und bei Size natürlich die dazugehörige Größe.

Leider habe ich noch nie mit soetwas gearbeitet und wäre froh, wenn mir einer von euch helfen könnte.

MfG, lace

Bady · 29. November 2011, 15:50

Schau dir mal die FileInfo-Klasse an.
[VB 2010] Ordner in ListBox
[VB 2010] Datei- und Ordneranzahl in Verzeichnis ermitteln
[VB 2010] Dateien vom Ordner in Listbox einfügen über FolderbrowserDialog

MFG

lace · 29. November 2011, 16:04

Danke. Das habe ich jetzt alles hinbekommen und er schreibt alles fein dort hin, wo es hin soll.

Ich habe jetzt bloß noch ein Problem mit den Dateigrößen:
Er soll hinter die größe immer die Einheit schreiben und dabei folgendermaßen vorgehen:
Wenn Datei größer als 1048576 Byte dann MB
Andererseits dann KB

Geht das nicht auch intelligenter? Vor allem weil ich das auch noch für GB haben will.

Also so siehts bis jetzt aus:

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim di As New IO.DirectoryInfo("C:\") 'Der Pfad
Dim diar1 As IO.FileInfo() = di.GetFiles() 'Hol die Dateien aus dem Pfad
Dim dra As IO.FileInfo 'Die FileInfo
Dim i As Integer = 0
'list the names of all files in the specified directory
For Each dra In diar1
i = i + 1
Dim item As New ListViewItem(i)
item.SubItems.Add(dra.FullName)
Dim size As Long = dra.Length
If size >= 1048576 Then
item.SubItems.Add(Math.Round(size / 1048576, 2) & " MB")
Else
item.SubItems.Add(Math.Round(size / 1024, 2) & " KB")
End If
ListView1.Items.AddRange(New ListViewItem() {item})
Next
End Sub
End Class

lace · 29. November 2011, 16:52

hallo?

lace · 29. November 2011, 20:10

- push -

DBOwner · 30. November 2011, 17:14

Kannst du damit etwas anfangen?
Filesize Formatierung

Alle Dateien neben meiner exe in Listview listen

Alle Dateien neben meiner exe in Listview listen

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben