Private Sub Form_Load() lblCurDir.Caption = Mid$(CurDir, 3) lblCurDrive.Caption = Left$(CurDir, 1) End Sub