Hej,
Det nemmeste er at anvende Microsoft's FileSystem object.
Set en reference til Microsoft Scripting Runtime (scrrun.dll) og anvend flg.
kode:
Dim FileSystem As FileSystemObject
Dim Folder As Folder
Dim FolderSize As Long
Dim theFolder As String
theFolder = "c:\windows"
Set FileSystem = New FileSystemObject
Set Folder = FileSystem.GetFolder(theFolder)
FolderSize = Folder.Size
/Kristian Larsen
--
Posted from asterix.icl.dk [193.219.16.21]
via Mailgate.ORG Server -
http://www.Mailgate.ORG