newbie help

[gin]

hi was hoping someone can help me out, I want to be able to search if a certain directory exists. I want to be able to search all local drives and even those that are networked. And is there a way to count the number of files in a certain directory besides using a filelistbox ?

Thanx i appreciate the help = )

Q2: And is there a way to count the number of files in a certain directory besides using a filelistbox ?

 Dim FileFinder
        FileFinder = Dir("C:\Windows\*.*")
        Do Until FileFinder = ""
        List1.AddItem LCase(FileFinder)
        FileFinder = Dir
        Loop
 MsgBox "There are " & List1.ListCount & " files in the Windows directory."

[kedaman]

DirectoryExists=cbool(len(dir("C:\windows",vbDirectory)))

[agent]

Last time I needed to list the storage devices (i.e. harddrives, nw drives, cdroms, etc) it was about a half a megabyte (slight exaguration) of code, all lowlevel API stuff. I have (conveniently) not needed to enumerate these device since... But there's probably a more efficient way of doing it.

I was doing it for a window shell I never finished, and I needed to not only enumerate the devices, but also set an appropiate icon for the device's type. I don't have the code off hand, but one of the other friendly folks in here might be able to help.

Just my two cents.

[gin]

Originally posted by kedaman

DirectoryExists=cbool(len(dir("C:\windows",vbDirectory)))

thanx for the tip! i was hoping you could explain how the code works because i'm a little confused. Thanx again!

[gin]

Thanks for all the help guys! i greatly appreciate it!

[V(ery) Basic]

Originally posted by gin

Originally posted by kedaman

DirectoryExists=cbool(len(dir("C:\windows",vbDirectory)))

thanx for the tip! i was hoping you could explain how the code works because i'm a little confused. Thanx again!

Dir(Path, vbDirectory) just returns a string if the directory exists. Len(anyString) works out the length oif a string. CBool converts a number to a boolean expression. So if Len(dir("C:\windows,vbDirectory")) = 0 (it doesn't exist) then it returns false. If it is <> 0, then it reurns true.

[kedaman]

Originally posted by V(ery) Basic

Originally posted by gin

Originally posted by kedaman

DirectoryExists=cbool(len(dir("C:\windows",vbDirectory)))

thanx for the tip! i was hoping you could explain how the code works because i'm a little confused. Thanx again!

Dir(Path, vbDirectory) just returns a string if the directory exists. Len(anyString) works out the length oif a string. CBool converts a number to a boolean expression. So if Len(dir("C:\windows,vbDirectory")) = 0 (it doesn't exist) then it returns false. If it is <> 0, then it reurns true.

Dir is used to enumerate files and subdirectories in a directory, By passing the directory path it will start search that directory while it will continue to return all files and subdirectories if you omit the directory, until it returns "" which means that there are no more items to return, which is the case if you don't find the directory at all. Also by specifying vbdirectory it will filter everything exept directories.