tagCANDY CGI VBレスキュー(花ちゃん)の雑談用掲示板
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の雑談用掲示板
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



 [スレッド一覧へ] [親スレッドへ]