Anyone know whats wrong with my code? I want the user to change the current dir, but I want want him/her to be able to choose C:\ because I want them to use sub directories. Thanks for your help....


Private Sub Dir1_Change()


On Error GoTo DriveHandler

GoTo Line1


Line1:

ChDir Dir1.Path

GoTo Line2

Line2:

If Dir1.Path = "C:\" Then

GoTo Line1

Else

GoTo Line3

Line3:

Form1.lblDir.Caption = Dir1.Path

GoTo Line4

Line4:

Unload Me


DriveHandler:

Dir1.Path = ""

Exit Sub

End Sub