Thanks!
Can you answer one more question for me is it possible to list up duplicate
files in a userform?.

"Bob Phillips" wrote:

Sub FolderSize()
Dim oFSO As Object

Set oFSO = CreateObject("Scripting.FileSystemobject")
MsgBox Format(oFSO.getfolder("C:\myTest").Size, "#,##0 ""bytes""")

Set oFSO = Nothing
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"vqthomf" wrote in message
...
Hi Is it possible to find a folder size, and also how can I list duplicate
files into a listbox any help will be much appreciated thanks.
Charles