私は今、あるアプリケーションを作っているのですが、オープニングムービーを再生したいと思っております。
開発環境:Visual studio 2008
言語:VB
現在はサイト等で検索し、
Private Declare Ansi Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Const stCurrentDir As String = CurDir$()
Const FileName As String = stCurrentDir & """\openning.mpg"""
という感じでファイルの場所を指定しているのですが、どうもconstがネックです。
これをdimで指定すると再生されないのです。
だからと言ってconstでやると、普通にカレントディレクトリを指定せずすべて指定するとできるのですが、上のようにカレントディレクトリを求めると、定数式が必要と出てしまいます。
どうにかうまくいく方法等ありませんでしょうか?
よろしくお願いいたします!
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
一つ気になってるのですが、FileName の部分 stCurrentDir & """\openning.mpg""" は正しいのでしょうか?
仮に stCurrentDir が「C:\Documents and Settings\xxx\デスクトップ」だった場合 FileName は「C:\Documents and Settings\xxx\デスクトップ"\opening.mpg"」って出力され、ファイルパスの間に「"」が入って来ます。
書くならば FileName を """ & stCurrentDir & "\openning.mpg""" のようにするべきだと思うのですが……
この回答への補足
""" & CurDir$() & "\openning.mpg"""
とやってみましたが、
最後の"""の部分で「ステートメントの終わりを指定してください」
と出てしまいました。
いろいろ試してみたのですが、なかなかうまくいきません。
よろしくお願いいたします。
No.1
- 回答日時:
mcisendstring使用だとファイルパスに空白があると
失敗してしまいますね。
10年近く前にかなりいじってみたことがありますが
""などのつけ方でうまくいくのだったか
忘れてしまいました。今日私が試行した限りでは
すべて失敗しました。
curdirのように変化するパスにせず、
空白を含まない固定パスになるフォルダーに
動画を置いておくようにするのでは都合が悪いのでしょうか?
この回答への補足
その課題は提出するものなので、必然的にカレントディレクトリは変化してしまうと思い、カレントディレクトリを指定しなければならないと思っております。
補足日時:2009/05/25 09:13お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Vba Userformを前面に出すについて 3 2022/04/15 12:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでパワーシェルを実行したい...
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
SaveAsの保存先について
-
【VB.NET】App.configにファイ...
-
エクセルVBAで一つ上の階層...
-
EXCEL(VBA)で指定フォルダ内の...
-
AccessからExcel最小化
-
VB2005 でパス名が誤っていない...
-
Excel 相対パス
-
パスワード保護されたExcelファ...
-
VBAでテキストファイル中の文字...
-
Excel VBAでテキストファイルを...
-
CreateProcess error=0
-
ListViewにSETしたファイル...
-
指定したフォルダ内の最新ファ...
-
VBAで、VBのapp.pathと同じ機能...
-
ExcelのVBAで上書き保存を確...
-
iniファイルのパス取得m_pszPro...
-
FolderBrowserDialogについて-2
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
エクセルVBAで一つ上の階層...
-
Excel 相対パス
-
【VB.NET】App.configにファイ...
-
xcopyコマンドの進行状況を表示...
-
【VBA】ExcelマクロでCSVファイ...
-
EXCEL(VBA)で指定フォルダ内の...
-
エクセルのマクロで特定フォル...
-
パスワード保護されたExcelファ...
-
ExcelVBAの使い方 ¥の使い方...
-
開いているファイルを削除し、...
-
SaveAsの保存先について
-
初心者powershellのPS1ファイル...
-
fopenでのパス指定
-
VBA★PDFをPDFアプリで印刷し...
-
【Excel VBA】Power Qurry のソ...
-
指定したフォルダ内の最新ファ...
-
A列に記載されているフォルダ...
-
ExcelのVBAで上書き保存を確...
おすすめ情報