Re: 書込みテスト ( No.1 ) |
- 日時: 2007/06/06 11:10
- 名前: 花ちゃん◆.7rAVKMwwJQ
- 段落テスト
ああ |____| | | | VB | あいうえお
Private Sub Command1_Click() On Error Resume Next Dim myFilename As String Dim myfile As String 'エラーのトラップを留保します。 myFilename = "C:\Temp.xls" 'ファイルが存在するか調べる myfile = Dir$(myFilename) If Len(myfile) = 0 Then MsgBox "そのファイルは存在しません。" Else 'ファイルがあればファイルの名前を同じ名前で変更します。 Name myFilename As myFilename 'ファイルが使用中であればエラーが発生します If Err.Number Then MsgBox "ファイルは使用中です。" 'エラーが発生した場合は Err オブジェクトをクリアします。 Err.Clear Else MsgBox "ファイルは使われていません。" End If End If End Sub
|
|