#N88BASIC
'API関数 GetOpenFileName
'
Dim ofn As OPENFILENAME
Dim buffer[MAX_PATH-1] As Byte
Dim h As DWord
Dim t As String
'------------------
' ファイル名を取得
'------------------
ofn.lStructSize=Len(ofn)
ofn.lpstrFilter=Ex"音楽 ファイル(*.wav;*.mid;*.mp3)\0*.wav;*.mid;*.mp3\0すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.nMaxFile=MAX_PATH
ofn.lpstrFile=buffer
h = GetOpenFileName(ofn)
t = ofn.lpstrFile
Print t
-----------------------------------------------------------------------------------------
'API関数 GetOpenFileName
'
Dim ofn As OPENFILENAME
Dim buffer[MAX_PATH-1] As Byte
Dim h As DWord
Dim t As String
'------------------
' ファイル名を取得
'------------------
ofn.lStructSize=Len(ofn)
ofn.lpstrFilter=Ex"音楽 ファイル(*.wav;*.mid;*.mp3)\0*.wav;*.mid;*.mp3\0すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.nMaxFile=MAX_PATH
ofn.lpstrFile=buffer
h = GetOpenFileName(ofn)
t = ofn.lpstrFile
Print t
-----------------------------------------------------------------------------------------
- ActiveBasicオフィシャルユーザーズガイド―完全FreeのBasic統合開発環境で始めるWindowsプログラミング/山本 大祐
- ￥2,625
- Amazon.co.jp
- Win32 APIオフィシャルリファレンス改訂3版 Windowsサービス/ネットワーク編
- ￥5,460
- Amazon.co.jp