All pastes #88206 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-07-14 17:23 UTC
rendered paste body
Private Sub drvLocal_Change()
    On Error GoTo Skip
    If drvLocal.Drive = "" Then
        dirLocal.Path = drvLocal.Drive
    End If
    
Skip:
    MsgBox "Drive not found or empty"
    Exit Sub
End Sub