ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 03:40

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2012年6月13日(水) 14:23 
初心者です。よろしくお願いします。

ファイルダイアログを表示して、選択ファイルのフルパスを”root.txt”に保存したい!!

If GetOpenFileName(ofn)=0 Then
ExitProcess(0)
End If

MessageBox(0,ofn.lpstrFile,"選択されたファイルのパス",MB_OK)
----------------------------------------------------
ofn.lpstrFileの内容を文字列データとして、root.txt(ファイルの名前)に
保存したい。....?
ofn.lpstrFileの内容文字列化のプログラムの記述をお願いいたします。


通報する
ページトップ
   
投稿記事Posted: 2012年6月13日(水) 19:59 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 215
お住まい: 東京都
OFN.lpstrFileの内容をそのままファイル(root.txt)に出力してみてください。
以下にサンプルを記載します。

DIM OFN As OPENFILENAME
DIM OFILE[255] AS Char
DIM HFILEO AS HANDLE
DIM DWFILESIZE AS DWord
DIM DWACCESSBYTE AS DWord
ZeroMemory(VarPtr(OFN),Len(OFN))
OFN.lStructSize = Len(OFN)
OFN.hwndOwner = NULL
OFN.lpstrFilter = EX"すべてのファイル(*.*)\0*\0\0"
OFN.nFilterIndex = 1
OFN.lpstrFile = OFILE
OFN.nMaxFile = MAX_PATH
OFN.lpstrInitialDir = NULL
IF GetOpenFileName(OFN) = 0 THEN
MessageBox(NULL,"キャンセルされました。","TEST",MB_OK)
ELSE
HFILEO = CreateFile("root.txt",GENERIC_WRITE,0,BYVAL 0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0)
/* ここでフルパスの内容をroot.txtに出力します */
WriteFile(HFILEO,OFN.lpstrFile,lstrlen(OFN.lpstrFile),VarPtr(DWACCESSBYTE),BYVAL 0)
CloseHandle(HFILEO)
MessageBox(NULL,"root.txtに出力しました","TEST",MB_OK)
END IF
END

ためしに上記のソースコードをコンパイルと実行してください。
期待どおりの結果になると思います。
よろしくお願いします。


通報する
ページトップ
 記事の件名: 完璧でした
投稿記事Posted: 2012年6月15日(金) 14:44 
完璧でした。助かりました、ありがとうございます。
またご教授下さいませ。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[22人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean