All pastes #88205 Raw Edit

Unnamed

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