How can I find if a directory is exist in my computer
and how can i find the path to it.
Printable View
How can I find if a directory is exist in my computer
and how can i find the path to it.
Do you mean Does folder "C:\WinNT\System32\Drivers\" exist or Where is folder "Drivers"???
Toot
This code works great and someone here gave it to me. This code also catches all of the files to, so if don't want that part of it just remove the Filecatch event.
Event Direcatch(dire As String, path As String, level As Integer)
Event Filecatch(File As String, path As String, level As Integer)
Public curlevel As Integer
Public filemax
Public diremax
Public tid
Public Sub explore(startdir As String, Optional pauses = 100)
tids = Timer
filemax = 0: diremax = 0: totalb = 0: curlevel = 0
If Right(startdir, 1) <> "\" Then startdir = startdir & "\"
ListSubDirs startdir, pauses
tid = Timer - tids
End Sub
Sub ListSubDirs(path As String, pauses)
Dim i, dmax, dirname As String, dire() As String 'declare variables
dirname = Dir(path, 63) 'get first directory name
If dirname = "" Then
TrueFalse = False
Else
TrueFalse = True
End If
If dirname = "" Then
'if current directory is already created then don't create again
If TrueFalse = False Then
Exit Sub
Else
MkDir path
End If
End If
Do While dirname <> ""
If dirname <> "." And dirname <> ".." Then
If Int(GetAttr(path + dirname) / 16) Mod 2 = 1 Then
If (dmax Mod 10) = 0 Then
ReDim Preserve dire(dmax + 10) 'resize the array
End If
dirmax = diremax + 1: dmax = dmax + 1
dire(dmax) = dirname
RaiseEvent Direcatch(dirname, path, curlevel)
Else
filemax = filemax + 1
RaiseEvent Filecatch(dirname, path, curlevel)
End If
End If
dirname = Dir 'get antoher directory name
waiter = waiter + 1: If waiter Mod (pauses) = 1 Then DoEvents
Loop
For i = 1 To dmax
curlevel = curlevel + 1
ListSubDirs path & dire(i) & "\", pauses
Next i
curlevel = curlevel - 1
End Sub
To get the path you can use Dir(), but I think that the code I gave you above returns the path to.
Aburke, the code you posted came from KEDAMAN (if you read this: damn, you rule mate, thanks for all the help you gave me!)
and doesn't it has to be placed in a usercontrol?
I really think DIR is the fastest way to find a dir...
have fun.