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

KLEB KONDO-NETいい掲示板

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

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

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

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

修正

投稿者名	メールアドレス公開レス通知
投稿題名
投稿内容	結局、駄目だったのでフォームモジュールを追加してForm2にすべて記述し .hwnd = application.hWndAccessApp を.hwnd =nHwndに変更し VB6のメニューのプロジェクト→参照設定でMicrosoft Access 9.0 object libraryを追加しないと動きませんでした。でも、何が問題でコピーされないのか不明ですが・・・？？また、.hwnd = application.hWndAccessApp を.hwnd =nHwnd >使用環境（Access97　OS：Win2000） >何の問題も無く、コピーできます。 >今回ＶＢ６は、関係ないですよね？ > >>エクスプローラー風ファイルコピーを作成しているのですが >>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/07 00:51

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