Do 'Go to root of drive
If Cwd$ <> "B:\" Then Chdir ".."
Loop Until Cwd$ = "B:\"
Dim DirVisited$(120) 'Define Directories Visited
''''''''''''''''''
'Count Files On B:
''''''''''''''''''
Print CLR$(2) Cwd$, CLR$(5) Directory$
Directory$ = Dir$("*.*", DIR)
1 Do
Count = Count+1 'Assign a number to a directory
If Directory$ <> "" Then 'If no sub directories then
If Directory$ = "." Then Directory$ = Dir$() 'Skip this
If Directory$ = ".." Then Directory$ = Dir$() 'and this
For Num = 1 To 120
If Directory$ = DirVisited$(Num) Then Directory$ = Dir$()
Next
Chdir Directory$ 'Change
Print CLR$(2) Cwd$, CLR$(5) Directory$
DirVisited$(Count) = Directory$
Else
Chdir ".."
EndIf
Directory$ = Dir$()
Loop Until Cwd$ = "B:\" And Directory$ = ""

B:\
B:\PROGRAMS PROGRAMS
B:\RECOVERY RECOVERY
B:\SETTINGS SETTINGS
B:\USER USER
B:\WINDOWS WINDOWS