RE: Problem copying folder to Folder

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: Problem copying folder to Folder

Logged in as: Guest

arrSession:exec spGetSession 2,2,49552

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: Problem copying folder to Folder
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: << < prev 1 [2]

Message

<< Older Topic Newer Topic >>

RE: Problem copying folder to Folder - 7/17/2007 7:50:29 AM

Mindmesh

Posts: 78
Score: 0
Joined: 11/23/2004
From:
Status: offline

Tried this code And it works, but only when the Source is local. Do you think that could have anything to do with it?

Option Explicit
'On Error Resume Next

Const SOURCE_FILES = "c:\scripts\work" 
Const SERVER_LIST = "ZeusServers.txt"
Const ForReading = 1
Const ForAppending = 8

Dim objFSO, objServerFile, objFolderFile, objLogFile
Dim strComputer, strDestination, strLogFile

strLogFile = "C:\ScriptLog.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objServerFile = objFSO.OpenTextFile(SERVER_LIST, ForReading)

If objFSO.FileExists(strLogFile) Then
   Set objLogFile = objFSO.OpenTextFile(strLogFile, ForAppending)
Else
    Set objLogFile = objFSO.CreateTextFile(strLogFile)
End If

Do Until objServerFile.AtEndOfStream
   strComputer = objServerFile.ReadLine
   strDestination = "\\" & strComputer & "\c$\FSBA\"
   objFSO.CopyFolder SOURCE_FILES, strDestination, True
   LogFile SOURCE_FILES, strDestination
Loop

Sub LogFile(strSourcePath, strDestPath)
   If Err.Number <> 0 Then
       objLogFile.WriteLine "Failed to Copy: " & strSourcePath
       objLogFile.WriteLine "Error Num: " & Err.Number & ": " & Err.Description
       Err.Clear
       intErrCount = intErrCount + 1 
   Else
       objLogFile.WriteLine "Copied " & strSourcePath & " to " & strDestPath
   End If
End Sub

(in reply to Mindmesh)

Post #: 21

RE: Problem copying folder to Folder - 7/17/2007 9:01:07 AM

Skie

Posts: 58
Score: 0
Joined: 3/2/2006
Status: offline

Do you get either of these message boxes if you add the following your error line?

If Not objFSO.FolderExists(SOURCE_FILES) Then
MsgBox SOURCE_FILES & " path does not exist."
End If
If Not objFSO.FolderExists(strDestination) Then
MsgBox strDestination & " path does not exist."
End If

(in reply to Mindmesh)