VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/12/04(Wed) 15:50
投稿者： べる
Ｅメール：
ＵＲＬ：
タイトル： 読取り専用

コマンドボタンでアクセスのデータベースファイルを開いています。
コードは
    On Error Resume Next
    MyFile1 = "\\Kameoka\access危安協\危険物安全協会\安全協会.mdb"
    MyFile = MyFile1
    If StrComp(Right$(MyFile1, 3), "mdb", 1) = 0 Then
        MyFile2 = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"
        MyFile1 = Chr$(34) & MyFile1 & Chr$(34)
        MyFile2 = Chr$(34) & MyFile2 & Chr$(34)
    End If
    Name MyFile As MyFile
    If Err.Number Then
        MsgBox "ファイルは使用中です。"
        Err.Clear
    Else
        ret = Shell(MyFile2 & MyFile1, vbMaximizedFocus)
    End If
上記のように書いています。この『ファイルは使用中です。』のメッセージのところを
読み取り専用にしてファイルを開かせたいのですが、読取り専用でファイルを開くには
どうしたらいいでしょうか？

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -