Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Fill sheet with directory conents
- Thread starter ninash
- Start date
Sub DoDir()
' Display the names in C:\ that represent directories.
myPath = "c:\" ' Set the path.
MyName = Dir(myPath, vbDirectory) ' Retrieve the first entry.
DirCount = 0
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If InStr(1, MyName, ".sys"
= 0 Then
theAttrib = GetAttr(myPath & MyName)
If (theAttrib And vbDirectory) = vbDirectory Then
ActiveCell.Offset(DirCount).Value = myPath & MyName
DirCount = DirCount + 1
End If ' it represents a directory.
End If
End If
MyName = Dir ' Get next entry.
Loop
End Sub
' Display the names in C:\ that represent directories.
myPath = "c:\" ' Set the path.
MyName = Dir(myPath, vbDirectory) ' Retrieve the first entry.
DirCount = 0
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If InStr(1, MyName, ".sys"
= 0 ThentheAttrib = GetAttr(myPath & MyName)
If (theAttrib And vbDirectory) = vbDirectory Then
ActiveCell.Offset(DirCount).Value = myPath & MyName
DirCount = DirCount + 1
End If ' it represents a directory.
End If
End If
MyName = Dir ' Get next entry.
Loop
End Sub
- Status
Similar threads
- Locked
- Question
- Locked
- Question