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

KLEB KONDO-NETいい掲示板

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

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

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

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

修正

投稿者名	メールアドレス公開レス通知
投稿題名
投稿内容	使用環境（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/06 19:39

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