VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/04/05(Thu) 11:29
投稿者： みかん
Ｅメール：
ＵＲＬ：
タイトル： フォルダーコピーについて

画面も何もなく実行するとそのフォルダーをコピーして移動させたいです。
どうしてもエラーがでます。
Option Explicit
Private Sub Form_Load()
Dim ret As New FileSystemObjecd
    ret = CopyFile("C:\AA.text", "C:\BB.text")
    If ret Then
        MsgBox "コピー完了"
    Else
        MsgBox "異常終了"
    End If

    ret = MoveFile("C:\AA.text", "C:\BB.text")
    If ret Then
        MsgBox "移動完了"
    Else
        MsgBox "異常終了"
    End If

End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -