Antal mb i mappen ( HASTER )

Jeg har lavet en frm med
drive1
dir1
list1
Command1

Nedenstående giver et resultat i bytes.
Prøv om det ernoget du kan bruge.
Ellers kan nogle af de dygtige folk jeg har set kommentere herinde sikkert hjælpe dig med noget der er _meget_ smartere :-)

Private Sub Command1_Click()
Dim a As Double, b As String
For ct = 0 To (File1.ListCount - 1)
b$ = Dir1.Path & "\" & File1.List(ct)
a = a + FileLen(b$)
Next ct
MsgBox a
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Der tages naturligvis ikke højde for subdir's m.v.

jeg kan ikke bruge dette da jeg ikke få alle de oplysninger som jeg skal bruge..
og så er det og at jeg gerne vil have dem i mb

Prøv følgende funktion:

Function DirSize(pcPath As String)
  Dim nByteSize As Double
  Dim cWork As String

  cWork = Dir(pcPath)
  While cWork <> ""
    nByteSize = nByteSize + FileLen(pcPath + cWork)
    cWork = Dir()
  Wend
  DirSize = Int(nByteSize / 1048576)
End Function

Den kan så kaldes på denne måde:

Debug.Print DirSize("C:\")

Hvilket vil returnere størrelsen af roden på C-Drevet.

Det kan laves meget bedre/hurtigere med Win32 API'en