Jag har en modul som öppnar en katalog och via den så hämtar jag storleken på ett visst filformats alla filer i katalogen. Nu verkar det som att den hänger sig när man öppnar en katalog där filerna totalt sett är större än 2GB. Det här är koden och jag undrar om det kan vara något fel eller någon miss i den, tack på förhand.

<code>
Private Sub mnuOpen_Click()
Dim lSize As Long
Dim sFileSize As String

lblCurrent.Caption = GetFolder
lstFiles.Path = lblCurrent.Caption
lblCurrent.Caption = lstFiles.Path

lSize = GetDirectorySize(lstFiles.Path)
Select Case lSize
Case 0 To 1024
sFileSize = lSize & " Bytes"
Case 1025 To 1048576
sFileSize = Format(lSize / 1024, "###0.00") & " KB"
'Case 1048577 To 1073741824
'sFileSize = Format(lSize / 1048576, "###0") & " MB"
Case Else
sFileSize = Format(lSize / 1024# ^ 2, "###0") & " MB"
End Select

txtFileSize = sFileSize
End Sub
</code>

Skall analyser bättre imorgon , det här ser mysko ut men har inte med felet att göra
<code>
lstFiles.Path = lblCurrent.Caption
lblCurrent.Caption = lstFiles.Path
</code>

Hmm, har haft problem tidigare med 2 GB i byte, även om jag använde mig av long...

Kan det vara så att i VB6 är en long 32 bitar stor, dessutom är den signed vilket skulle innebära att den rymmer max 2 147 483 648...

I .NET vet jag att en long är 64 bitar och det räcker långt...

Mvh,
Thomas Vanhaniemi

Testa t.ex. Currency

Jag vill tacka alla som svarade på inlägget, koden fungerar perfekt och mina användare är glada! :)

Är det min kod du syftar på som fungerar perfekt? Märker du av bättre prestanda?