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