Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1873 / 2272 ツリー ←次へ | 前へ→

【4846】CopyFolder について 豆柴 05/4/8(金) 14:25 質問[未読]
【4848】Re:CopyFolder について 小僧 05/4/8(金) 15:48 発言[未読]

【4846】CopyFolder について
質問  豆柴  - 05/4/8(金) 14:25 -

引用なし
パスワード
   こんにちは
いつも参考にさせていただいております。

(windows xp ,access 2002 使用)
今回バックアップを作りたく以下のように作成しました。
コピー元・コピー先供にサーバー上の共有フォルダにあります。
実行すると"パスが見つかりません"でエラーになってしまいます。
そこで、\\Primergy\共有領域 を c:\ でテストして見ると上手く
出来ました。サーバー上の物は扱えないのでしょうか?
(データは存在しています)
よきアドバイスをお願いいたします。

  Dim colFilesystem As Object
  Dim strSrcName As String
  Dim strDestName As String

  'オブジェクトの取得
  Set colFilesystem = CreateObject("Scripting.FileSystemObject")

  'フォルダのコピー ==>(これだとエラーになります)
  strSrcName = "\\Primergy\共有領域\請求システム\データ"
  strDestName = "\\Primergy\共有領域\"請求システムBACKUP"
  colFilesystem.CopyFolder strSrcName, strDestName

  'フォルダのコピー ==>(これだと上手くいきます)
  strSrcName = "C:\請求システム\データ"
  strDestName = "C:\"請求システムBACKUP"
  colFilesystem.CopyFolder strSrcName, strDestName
  
  'オブジェクトの解放
  Set colFilesystem = Nothing

【4848】Re:CopyFolder について
発言  小僧  - 05/4/8(金) 15:48 -

引用なし
パスワード
   ▼豆柴 さん:
こんにちは。
Linuxサーバにファイルを置いて再現をしてみたのですが
当方はうまくフォルダのコピーができております。

>  Dim colFilesystem As Object
>  Dim strSrcName As String
>  Dim strDestName As String
>
>  'オブジェクトの取得
>  Set colFilesystem = CreateObject("Scripting.FileSystemObject")
>
>  'フォルダのコピー ==>(これだとエラーになります)
>  strSrcName = "\\Primergy\共有領域\請求システム\データ"
>  strDestName = "\\Primergy\共有領域\"請求システムBACKUP"
→  strDestName = "\\Primergy\共有領域\請求システムBACKUP"

>  colFilesystem.CopyFolder strSrcName, strDestName
>  
>  'オブジェクトの解放
>  Set colFilesystem = Nothing

何の回答にもなっておりませんが参考までに…。

1873 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078230
(SS)C-BOARD v3.8 is Free