[リストへもどる]
一括表示

投稿時間:2002/11/14(Thu) 22:38
投稿者名:KKK
Eメール:
URL :
タイトル:
FileCopyでのエラー
いつもお世話になってます。
下のプルグラムのように、ファイルのコピーが終了するまでその先の作業を実行させないようにAPIを使っているのですが、困ったことにFileCopyのところで”Functionまたは変数が必要です”メッセージが出るのですが、何が原因なのかわかりません。
よろしくお願いします。

Public Function BuckUp()
    Dim StrFileTo_Dom As String
    
    'バックアップファイルの作成
    On Error GoTo buckup_err
        StrFileTo_Dom = "\\Fhit_server\G$\test.txt"                
    IDProcess = FileCopy(StrFileForm, StrFileTo_Dom)          
        ExitCode = ProcessWait(IDProcess)
        If ExitCode = RC_NORMAL Then
            BuckUp = RC_NORMAL←0です
        Else
            BuckUp = RC_ABORT←1です
            Exit Function
        End If
        Exit Function
buckup_err:
        BuckUp = RC_ABORT
        
End Function


Function ProcessWait(ID As Long) As Long
Dim hProcess As Long, ExitCode As Long, ret As Long

    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 1, ID)
    Do
        ret = GetExitCodeProcess(hProcess, ExitCode)
        DoEvents
    Loop While (ExitCode = STILL_ACTIVE)
    ret = CloseHandle(hProcess)
    ProcessWait = ExitCode
        
End Function

投稿時間:2002/11/14(Thu) 22:45
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: FileCopyでのエラー
>         StrFileTo_Dom = "\\Fhit_server\G$\test.txt"                

 ここの \\ は何でしょうか?

投稿時間:2002/11/14(Thu) 22:56
投稿者名:KKK
Eメール:
URL :
タイトル:
Re^2: FileCopyでのエラー
> >         StrFileTo_Dom = "\\Fhit_server\G$\test.txt"                
>
>  ここの \\ は何でしょうか?
円マークです
パスの指定です。

投稿時間:2002/11/14(Thu) 22:57
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: FileCopyでのエラー
> > >         StrFileTo_Dom = "\\Fhit_server\G$\test.txt"                
> >
> >  ここの \\ は何でしょうか?
> 円マークです
> パスの指定です。

なぜ2個もいるのですか?

投稿時間:2002/11/14(Thu) 23:17
投稿者名:KKK
Eメール:
URL :
タイトル:
Re^4: FileCopyでのエラー
> > > >         StrFileTo_Dom = "\\Fhit_server\G$\test.txt"                
> > >
> > >  ここの \\ は何でしょうか?
> > 円マークです
> > パスの指定です。
>
> なぜ2個もいるのですか?
これはネットワークパスなので2つになりました。

投稿時間:2002/11/14(Thu) 23:39
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re^4: FileCopyでのエラー
>>>>         StrFileTo_Dom = "\\Fhit_server\G$\test.txt"                
>>>  ここの \\ は何でしょうか?
>> 円マークです
>> パスの指定です。
> なぜ2個もいるのですか?

UNCパスというのは、そういう記述になります。
  \\サーバー名\共有名\ファイルのパス
という書式ですね。

先の例の場合、Fhist_serverというコンピュータ上にある、
G$という共有名をつけたフォルダ(恐らくは、相手側のG:\の共有名でしょう)の
test.txt というファイルを指している事になります。

投稿時間:2002/11/14(Thu) 23:33
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re: FileCopyでのエラー
> 下のプルグラムのように、ファイルのコピーが終了するまでその先の作業を実行させないようにAPIを使っているのですが、困ったことにFileCopyのところで”Functionまたは変数が必要です”メッセージが出るのですが、何が原因なのかわかりません。

文字通り、FileCopy関数を用意していないからだと思います。
VBには、FileCopyステートメントはありますが、FileCopy関数はありません。

似たような名前として、CopyFile というAPI関数や、FileSystemObjectオブジェクトの
CopyFileメソッドというのもありますが、いずれにしても構文が異なります。

投稿時間:2002/11/14(Thu) 23:38
投稿者名:KKK
Eメール:
URL :
タイトル:
Re^2: FileCopyでのエラー
> > 下のプルグラムのように、ファイルのコピーが終了するまでその先の作業を実行させないようにAPIを使っているのですが、困ったことにFileCopyのところで”Functionまたは変数が必要です”メッセージが出るのですが、何が原因なのかわかりません。
>
> 文字通り、FileCopy関数を用意していないからだと思います。
> VBには、FileCopyステートメントはありますが、FileCopy関数はありません。
>
> 似たような名前として、CopyFile というAPI関数や、FileSystemObjectオブジェクトの
> CopyFileメソッドというのもありますが、いずれにしても構文が異なります。
ありがとうございました。
何とかできそうです。
本当に助かりました。
またお願いします。