エラーを発生するサンプルコード

Public Sub ErrNumber53()
    '実行時エラー '53':
    'ファイルが見つかりません。
    FileCopy "aaa", "bbb"

End Sub

Public Sub ErrNumber68()
    '実行時エラー '68':
    'デバイスが準備されていません。
    ChDrive "A"

End Sub

Public Sub ErrNumber70()
    '実行時エラー '70':
    '書き込みできません。
    FileCopy CurrentProject.FullName, "A:\"

End Sub

Public Sub ErrNumber76()
    '実行時エラー '76':
    'パスが見つかりません。
    FileLen "A:\aaa.txt"

End Sub