ホーム > カテゴリ > Visual Basic >

ダイアログ付きでファイルをコピーする

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

サンプルの実行画面

ソースコード

[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

【男性ボーカル】DA・KA・RA | 新たな明日が風と共に訪れる

【男性、女性ボーカル】時空を超越する先に | 時空と風の交響曲

【女性、男性ボーカル】絆 | 穏やかな心に奏でる旋律