 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
|
|
