ダイアログ付きでファイルをコピーする
ダイアログ付きでファイルをコピーするサンプルです。
サンプルの実行画面

ソースコード
[FileOperation.frm]
' SHFileOperation =>ファイルを操作(コピー・移動。削除)する '<引数> 'lpFileOp: SHFILEOPSTRUCT構造体 '<戻り値> '正常終了0 Private Declare Function SHFileOperation Lib "SHELL32" (lpFileOp As SHFILEOPSTRUCT) As Long Private Type SHFILEOPSTRUCT hwnd As Long 'ウインドウのハンドル wFunc As Long '定数(FO_××参照) pFrom As String 'ファイル操作元のファイル名・ディレクトリ pTo As String 'ファイル操作先のファイル名・ディレクトリ fFlags As Integer '定数(FOF_××参照) fAnyOperationsAborted As Long 'キャンセルボタンのフラグ hNameMappings As Long ' lpszProgressTitle As String 'タイトル End Type Const FO_MOVE As Long = &H1 'ファイルを移動 Const FO_COPY As Long = &H2 'ファイルのコピー Const FO_DELETE As Long = &H3 'ファイルを削除 Const FO_RENAME As Long = &H4 'ファイル名変更 Const FOF_ALLOWUNDO = &H40 'ゴミ箱へ削除 Const FOF_FILESONLY = &H80 'ディレクトリを含まない Const FOF_SIMPLEPROGRESS = &H100 'ファイル名を表示しない Const FOF_MULTIDESTFILES = &H1 ' Private Sub Command1_Click() Dim Ret As Long '戻り値 Dim SH As SHFILEOPSTRUCT 'SHFILEOPSTRUCT構造体 With SH .hwnd = nHwnd 'ウインドウのハンドル .wFunc = FO_COPY '操作方法 .pFrom = Text1.Text '操作元のファイル名 .pTo = Text2.Text '操作先のファイル名 .fFlags = FOF_MULTIDESTFILES 'フラグ End With Ret = SHFileOperation(SH) End Sub
ソースコード一式のダウンロード
vbapi_fileoperation.zip 1.29 KB (1,328 バイト)
このサンプルの動作環境について
このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | カラー選定ダイアログを表示する |
次の記事: | 「フォルダを選択」ダイアログを表示する |
公開日:2015年03月03日
記事NO:00320
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte