ab.com コミュニティ

コード: 全て選択

Dim FileName[MAX_PATH] As Byte
Dim lpFil As BytePtr
lpFil=Ex"ネットリスト ファイル(*.mm2)\0*.mm2\0すべてのファイル(*.*)\0*\0\0"

'「ファイルを開く」ダイアログ ボックスを表示
If GetFileDlg(0, FileName, lpFil, TRUE) Then
    MessageBox(0,FileName,"選択されたファイルのパス",MB_OK)
End If

ShellExecute(0,"open","DOSの実行ファイル",FileName,NULL,SW_SHOW)

コード: 全て選択

Dim FileName[MAX_PATH] As Byte
Dim lpFil As BytePtr
lpFil=Ex"ネットリスト ファイル(*.mm2)\0*.mm2\0すべてのファイル(*.*)\0*\0\0"

'「ファイルを開く」ダイアログ ボックスを表示
If GetFileDlg(0, FileName, lpFil, TRUE) Then
	MessageBox(0,FileName,"選択されたファイルのパス",MB_OK)
End If

'プロセス終了
ExitProcess(0)

コード: 全て選択

ShellExecute(0,"open",FileName,NULL,NULL,SW_SHOW)

コード: 全て選択

ShellExecute(0,"open","notepad",FileName,NULL,SW_SHOW)

コード: 全て選択

C:\>notepad "ファイルのパス"

コード: 全て選択

'メモ帳を起動
ShellExecute(0,"open","C:\WINDOWS\notepad.exe",NULL,NULL,SW_SHOWDEFAULT)
'ここで実際に開くファイルを後で使用したいのです。
'execとShellExecuteの違いが余り良く理解出来てません

'変数の宣言
Dim s As BytePtr
Dim i As Long
Dim moji[512] As Byte

'クリップボードを開く
OpenClipboard(NULL)

'クリップボードを空にする 今の段階はクリアしない様にしてます
'EmptyClipboard()

'クリップボードの文字を取得
s = GetClipboardData(CF_TEXT)

'クリップボードの文字を表示
MessageBox( 0,s,"クリップボード",MB_OK)

'文字列をメモリにコピー
lstrcpy(moji,s)

'クリップボードを閉じる
CloseClipboard()

'クリップボードの内容をファイルに書き出し
Open "D:\test\test.mmm" For Output As #1
    for i=0 to lstrlen(moji)-1
Print #1,Chr$(moji);
next
Close #1

'保存が出来ているかどうかの確認
exec "C:\WINDOWS\notepad.exe","D:\test\test.mmm"

'メモ帳で開いたファイルを別のアプリケーションで開く(ここでは仮にWordで開くとする)
'exec "C:\Program Files\Microsoft Office\Office\WINWORD.EXE","メモ帳で開いたファイル"

End

コード: 全て選択

ofn.lpstrFilter=Ex"MM2 ファイル(*.mm2)\0*.mm2\0すべてのファイル(*.*)\0*\0\0"

コード: 全て選択

Declare Function SHGetSpecialFolderPath Lib "Shell32" Alias "SHGetSpecialFolderPathA" (
    hwndOwner As HWND,
    pszPath As *Char,
    nFolder As Long,
    fCreate As Long
) As Long

コード: 全て選択

#strict
> 
> Dim Target[MAX_PATH] As Char 
> SHGetSpecialFolderPath(0, Target, CSIDL_PERSONAL, FALSE)
> SetCurrentDirectory(Target)
> lstrcat(Target, "\*.txt")
> 
> Dim fd As WIN32_FIND_DATA
> Dim hFind As HANDLE
> hFind = FindFirstFile(Target, fd)
> Do
> 	Exec "notepad", fd.cFileName
> Loop While FindNextFile(hFind, fd)
> FindClose(hFind)

コード: 全て選択

Declare Function SHGetSpecialFolderPath Lib "shell32.dll" _
           Alias "SHGetSpecialFolderPathA" ( _
         hwndOwner as Long,lpszPath as String,nFolder as Long,
         fCreate as Long) as Long
Const CSIDL_PERSONAL = &H5

Sub MainWnd_CommandButton1_Click()
Dim Dn as String 
Dim Nn as Long
Dim Fn as String
    Dn = ZeroString(MAX_PATH)
         SHGetSpecialFolderPath(0,Dn,CSIDL_PERSONAL, FALSE)
         SetCurrentDirectory(Dn)
         SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_DIR,&H0,"*.*")
    Nn = SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_GETCOUNT,0,0)
    Fn = ZeroString(MAX_PATH)
    If (Nn) Then
         SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_GETTEXT,0,StrPtr(Fn)) '0-Nn=FileName
         Exec "notepad",Fn
    End If
End Sub

コード: 全て選択

#strict

Dim Target[MAX_PATH] As Char 
SHGetSpecialFolderPath(0, Target, CSIDL_PERSONAL, FALSE)
SetCurrentDirectory(Target)
lstrcat(Target, "\*.txt")

Dim fd As WIN32_FIND_DATA
Dim hFind As HANDLE
hFind = FindFirstFile(Target, fd)
Do
	Exec "notepad", fd.cFileName
Loop While FindNextFile(hFind, fd)
FindClose(hFind)

コード: 全て選択

> 　　/*HSP3*/
> 　　notesel Bu
> 　　dirlist Bu,"*.mm2"
> 　　noteget ss,0
> 　　ss = "notepad "+ss
> 　　exec ss
> 

コード: 全て選択

　　/*HSP3*/
　　notesel Bu
　　dirlist Bu,"*.mm2"
　　noteget ss,0
　　ss = "notepad "+ss
　　exec ss