KONDO-NETいい掲示板 By KLEB Ver 0.03

KLEB KONDO-NETいい掲示板

メンバーリスト　会員登録　ログイン

いい掲示板 - 掲示板一覧 - ソフト開発塾

ソフト開発（VB VC Perl PHPなど)に、関わるＱＡなど

現在、作成中につきこの板からは投稿・返信できません。
しかし、なんでも掲示板からは、投稿できます。

修正

投稿者名	メールアドレス公開レス通知
投稿題名
投稿内容	エクスプローラー風ファイルコピーを作成しているのですが Accessのハンドルを以下のようにセットすると実行エラー424　（オブジェクトが必要です）と表示される。なぜ？？使用環境（VB6 Access2000　OS：Win98） .hwnd = application.hWndAccessApp ’標準モジュールへ記述 Option Explicit Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String End Type Declare Function SHFileOperation Lib \"SHELL32.DLL\" Alias _ \"SHFileOperationA\" (lpFileOp As SHFILEOPSTRUCT) As Long Const FO_COPY = &H2 Const FO_MOVE = &H1 Const FOF_NOCONFIRMATION = &H10 Const FOF_RENAMEONCOLLISION = &H8 Private Sub Command1_Click() \'次の例では、ファイル\"c:\\My Documents\\Test.mdb\"を\"c:\\Test.mdb\"にコピーします。 Dim stShellOp As SHFILEOPSTRUCT Const cstrSrcFile As String = \"c:\\My Documents\\Test.mdb\" Const cstrDstFile As String = \"c:\\Test.mdb\" With stShellOp .hwnd = application.hWndAccessApp .wFunc = FO_COPY .pFrom = cstrSrcFile .pTo = cstrDstFile End With If SHFileOperation(stShellOp) = 0 Then Beep MsgBox \"コピー完了しました！\" Else Beep MsgBox \"コピーに失敗またはキャンセルされました！\" End If End Sub
削除キー	プレビュー投稿日:2003/09/06 17:48

---KONDO-NET.GR.JP---