Find Folder Size
I would like to give the user a choice of either if possible.
Regards
Charles
"NickHK" wrote:
You mean search the entire drive+root folder or sub folders for files that
have exactly the same name and extension ?
NickHK
"vqthomf" ...
Files with the same name.
Regards
Charles
"Halim" wrote:
Hi,
What you mean with duplicate files?
If all type of files you can use :
Dim mydir
mydir = Dir("C:\*.*")
Do While mydir < ""
ListBox1.AddItem mydir
mydir = Dir
Loop
--
Regards,
Halim
"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
|