vistaでフォルダをコピーするには

Yuki 2008-01-22 02:29:29 No: 138698

はじめまして、お世話になります。
VB6でファイルおよびフォルダをコピーするプログラムを作成しました。
WindowsXP上では正常に動作するのですが、Vista上では"実行時エラー'70'：書き込みできません。"
とエラーメッセージが表示されファイルのコピーは出来るのですがフォルダのコピーができません。

マイドキュメントからワークグループでつながったPCの共有フォルダにコピーしようとしています。

↓こんな感じでやっています。
----------------------------------------------------------------
    '変数の宣言と初期化
    Dim Get_FileName    As String
    Dim Get_FolderName  As String
    Dim Copy_Moto_Path  As String

    Get_FileName = Empty
    Copy_Moto_Path = Empty

    'マイドキュメントからファイル名を取得する
    Get_FileName = Dir(MyDocuments + "\*")

    'マイドキュメントからフォルダへファイルをすべてコピーする
    Do While Get_FileName <> ""
        FileCopy MyDocuments + "\" + Get_FileName, Server_Kojin_Path + "\" + Get_FileName
        Get_FileName = Dir:
    Loop

    'マイドキュメントからフォルダ名を取得する
    Get_FolderName = Dir(MyDocuments + "\*", vbDirectory)

    'マイドキュメントからフォルダへファイルをすべてコピーする
    Copy_Moto_Path = MyDocuments + "\" + Get_FolderName
    Set objFolder = objFSO.GetFolder(Copy_Moto_Path)
    objFolder.Copy Server_Kojin_Path + "\" + Get_FolderName, True

----------------------------------------------------------------
何かご存知の方がいらっしゃいましたらお教え願いたく宜しくお願いします。