投稿日 | : 2004/09/13(Mon) 07:47 |
投稿者 | : kara |
Eメール | : |
URL | : |
タイトル | : コピーのメッセージを出したくない |
windows xp sp6.0
おはようございます。
karaです
質問ですが、上書きコピーする場合
ファイルの上書きの確認のメッセージが出ます、それを出したくない。
Trueを使うのでしょうか、/yもエラーが出てしまいます。
なにかよい方法をご指示下さい。
よろしくお願いいたします。
Dim utdShellOpStruct As SHFILEOPSTRUCT
Dim lngWin32apiResultCode As Long
' ファイル操作に関する情報を指定
With utdShellOpStruct
' 進行状況を表示するダイアログの親ウィンドウハンドルを指定
.hWnd = Form1.hWnd
' 実行する操作に[コピー]を指定
.wFunc = FO_COPY
' コピー元のファイルを指定
.pFrom = Text1.Text
' コピー先のファイルを指定
.pTo = "C:\WINDOWS\SYSBCKUP"
End With
' ファイル操作を実行
lngWin32apiResultCode = SHFileOperation(utdShellOpStruct)
この書き方だと、上書きのメッセージが出ます。