No.7ベストアンサー
- 回答日時:
なんか解決していないようなのでちょいテストコードを
Private Const DIR_TEST As String = "C:\hogehoge"
Private Const DRV_VIR As String = "Z:"
Private Sub CmdTest1_Click()
'ディレクトリ作成
Call MkDir(DIR_TEST)
End Sub
Private Sub CmdTest2_Click()
Dim strCommand As String
'仮想ドライブ設定
'strCommand = Environ("windir") & "\system32\subst " & DRV_VIR & " " & DIR_TEST
strCommand = "subst " & DRV_VIR & " " & DIR_TEST
Call Shell(strCommand)
End Sub
Private Sub CmdTest3_Click()
Dim strCommand As String
'仮想ドライブ解除
'strCommand = Environ("windir") & "\system32\subst " & DRV_VIR & " /d"
strCommand = "subst " & DRV_VIR & " /d"
Call Shell(strCommand)
End Sub
Private Sub CmdTest4_Click()
'ディレクトリ削除
Call RmDir(DIR_TEST)
End Sub
試験環境:
・WinXP+Ac2002
・Win2K+Ac2002runtime
・Win2K+Ac2000
参照設定:
・Visual Basic For Applications
・Microsoft Access *.* Object Library
上記環境で正常動作を確認しています
NT系しか検証していませんが...
(もしかして釣りですか?)
No.6
- 回答日時:
>コマンドプロンプトでの操作は正常ですが、VBAの中でエラーが発生します。
そうなんですかぁ。システム自体に問題があってコマンドプロンプトでも正常に動作しないんじゃないかと勝手に推測していたんですけど、そうじゃないんですね。
susst.exe って、subst.exe のことですよね。Win98 や WinMe では正常に動作して WinXP でも正常に動作しなくて、しかもそれがファイルやフォルダ関係となると、権限関係くらいしか思いつかないですが・・・。Access でもコマンドプロンプトでも、同じユーザーで実行してるんですよね?お役に立てなくて申し訳ないですが、よくわかりません。
No.5
- 回答日時:
原因として思いつくのは
・MKDIR の引数(つまり作成したいディレクトリ名)に空白が含まれている。
ディレクトリ名を""で囲むとどうでしょうか?
・susst.exeに対するpathが通っていない。
exe名をフルパスで指定するとどうでしょうか?
No.4
- 回答日時:
「正常に動作しません」とはどういう状況なのでしょうか?何かエラーメッセージが出ますか?それとも、何のエラーメッセージも出ないけれど、期待したとおりに実行されていないということでしょうか?
もし、何かエラーメッセージが出ているのなら、何かの手がかりになるかもしれませんので補足にでも書いてください。
それと、MKDIR はわかるんですが、susst.exe とは一体何でしょうか?私は今まで聞いたこともありませんし、Google なんかで検索してみてもそれらしいものは検索に引っかかりませんでした。 susst.exe って、何をするものでしょうか? Shell 関数で susst.exe という実行ファイルを実行しているということでしょうか?XPのコマンドプロンプトや「ファイル名を指定して実行」で実行すると正常に動作しますか?
この回答への補足
mkdirのエラーは特にメッセージはでません。
コマンドプロンプトでの操作は正常ですが、VBAの中で
エラーが発生します。
susst.exeはdosコマンドで、仮想ドライブの設定で
つかいます。これは、ステートメントでないので、
shell関数を用いて使用します。
しかし、mkdirと同じで、VBAでエラー、コマンドプロンプトではうまくゆきます。
No.3
- 回答日時:
>参照設定のダイアログボックスの中に、
>参照不可という文字は見出せません。
参照不可はないのでしょう。
そういうことなら、申し訳ありませんが、他の原因はちょっと思いつきません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 関数を最終行までコピー 3 2022/09/04 11:05
- Access(アクセス) こんにちは。Accessのことで教えてください。M365環境で、Private Declare Fu 1 2023/01/09 14:59
- ビデオカード・サウンドカード PC版:スーパーロボット大戦30 推奨環境を満たしておりますが、動作(処理)が遅いかもしれません。 1 2023/01/26 13:45
- その他(ゲーム) Windowsアスカ見参プレイするのに下の通りのが必要みたいですがメモリー、ビデオメモリーHDD別々 3 2022/09/19 23:24
- CPU・メモリ・マザーボード ノートパソコンでゲームを快適にプレイするにはどれくらいのスペックが必要かの? 7 2023/01/27 18:39
- その他(動画サービス) U-NEXT ユーネクストはWi-Fi環境によって視聴できる番組とできない番組はありますか? 韓流な 2 2022/10/23 09:57
- Visual Basic(VBA) M365環境での動作エラー、及び対応相談 1 2023/01/27 04:18
- CAD・DTP FreeCADはWindows11のワークステーションで動作するでしょうか。 1 2022/11/16 21:25
- デスクトップパソコン パソコンの動きが遅く悩んでます。相談にのってくれませんか? 11 2023/02/24 15:33
- Windows 10 Windows10環境にてWindowsUpdate後の再起動を完全に抑止する方法はございますか? 10 2023/06/16 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データベースファイル(.db)を開...
-
警察はスマホに保存した動画や...
-
Accessを開きなおすとテキスト...
-
ACCESSのSQLで、NULLかNULLでな...
-
20万行あるデータを動かしたい
-
更新クエリをリンクデータベー...
-
帳票フォームでのあるコンボボ...
-
AccessのSQLで、FROM句の構文エ...
-
Access フォーム上でコンボボッ...
-
c言語の問題です。これを踏まえ...
-
Notion@リレーション値の取得...
-
構文エラー:演算子がありませ...
-
エクセル
-
旧filemakerで和暦(令和など)...
-
Accessフォームからパラメータ...
-
ECサイトでの著作権について教...
-
Excel VBA 転記について
-
CSVファイルでテキストの改行の...
-
シャープレジスター エラーコード
-
顧客データベースを作る場合、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースファイル(.db)を開...
-
Accessを開きなおすとテキスト...
-
警察はスマホに保存した動画や...
-
ACCESSのSQLで、NULLかNULLでな...
-
エクセルのフィルタ抽出が固まる
-
CSVファイルでテキストの改行の...
-
構文エラー:演算子がありませ...
-
Accessフォームからパラメータ...
-
20万行あるデータを動かしたい
-
Accessのリンクテーブルについて
-
コンピュータ
-
最新の日付とその金額をクエリ...
-
データベースとウェブ(WWW)の共...
-
更新クエリをリンクデータベー...
-
「1004:アプリケーション定義...
-
リスト形式の表とデータベース...
-
android版のMs accessはありま...
-
Excelフィルタ抽出で「検索して...
-
縦書きテキストボックスの表示"...
-
Notion@リレーション値の取得...
おすすめ情報