liste mapper og størrelser

ja. F.eks. med FSO. Brug søgefunktionen

ok. må søge lidt omkring det..
smid gerne et svar.

Fx. http://exp.dk/spm/618647 Ud fra dette kan du omskrive til





Først gå til Project > References og vælg Microsoft Scripting Runtime

Smid en command1 på din form og et listview1, copy-paste koden og kør programmet

Option Explicit
Dim FolderArray() As String

Private Sub Command1_Click()
  Dim strSearchFolder As String
  Dim strFirstFolder As String
 
  Dim i As Long
  Dim fso As Scripting.FileSystemObject

  Set fso = New Scripting.FileSystemObject
  strSearchFolder = "C:\"  '<--Skift evt. mappenavnet
  FindfirstFolder fso.GetFolder(strSearchFolder)
  For i = LBound(FolderArray) To UBound(FolderArray)
    List1.AddItem FolderArray(i)
  Next i
  MsgBox "Ikke flere foldere - program slut"
End Sub

Private Sub FindfirstFolder(folder As Scripting.folder)
  Dim tmpFolder As Scripting.folder
  Dim j As Long
 
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      ReDim Preserve FolderArray(j)
      FolderArray(j) = tmpFolder.Name & " - " & tmpFolder.Size & " kB"
      j = j + 1
    Next
  End If
End Sub

1000 tak. det var lige det....

lige et lille tillægs ?
Hvis nu jeg smider jeg DirListBox ind, kan jeg så få min listview1 til bruge valget fra den istedet for den statiske "c:\" ?

naturligvis

kan du hjælpe mig... for flere points ?

Det er såmænd så ligetil:

strSearchFolder = "C:\"

udskiftes med

strSearchFolder = Dir1.Path

hold da tak..
Sad og lavede en skjult text felt som hentede værdien fra Dir....