'objFSObject.CopyFile' trouble

ASP Free Forums Sponsor:

August 8th, 2008, 04:18 PM

Hangman

Registered User

Join Date: Jul 2008

Posts: 29

Time spent in forums: 6 h 56 m 6 sec
Reputation Power: 0

'objFSObject.CopyFile' trouble

I am having some trouble getting this command to work.
In essence, I want to copy 100+ files from the server to several PC's connected to the server. Each user will run this script to get the files copied to their machine. (Although I eventually want to automate that step as well so the user doesn't have to do a thing.)
I'm not sure what I am missing, but I get the error: File not Found. Here's my code:

vb Code:

Original - vb Code

 
Dim objFSObject, objTerrDir, objTerrTrack, objRootDrive, objRootDir, objRootTrack, strRootDir, strFileList, objFile
Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set objTerrDir = objFSObject.GetFolder("C:\Program Files\Terragen\TERAFORM")
strRootDir = "\temp\Terragen\TERAFORM\Track_1"
 
Set objTerrTrack = objFSObject.GetFolder(objTerrDir & "\Track_1")
 
If objFSObject.DriveExists("X:") Then
   Set objRootDrive = objFSObject.GetDrive("X:")
  Else
   MsgBox "You are not currently connected to the network." & vbCrLf & vbCrLf & _
          "Please reboot your machine to connect to the server, or contact your " & _
          "local I.T. admvinistator for assistance.", 0 + 48,
   WScript.Quit
End If
 
Set objRootDir = objFSObject.GetFolder(objRootDrive & strRootDir)
 
For Each objFile In objRootDir.Files
   strFileList = strFileList & objFile.Name & vbCrLf
Next
MsgBox strFileList, ,"List of files in " & objRootDir  
 ' I am getting the list of files
 
For Each objFile In objRootDir.Files
   objFSObject.CopyFile objRootDir & objFile.Name, objTerrTrack
 ' I am getting the error "File not found"
Next
 
 ' I have also tried the following
 ' objFSObject.CopyFile objRootDir & "*.env", objTerrTrack
 ' objFSObject.CopyFile "X:\temp\Terragen\TERAFORM\Track_1", objTerrTrack
 ' objFSObject.CopyFile "X:\temp\Terragen\TERAFORM\Track_1", "C:\Program Files\Terragen\TERAFORM\Track_1"
 
MsgBox "Finished copying files"
WScript.Quit  'Terminate the script's execution

I have read though the MSDN library on this topic, and I have my code as they suggest on the webpage.
The only thing I can think of is either I don't have the name correct for my server; < Drawings on 'sqlserver' (X: ) > (without the brackets of course)
or, I don't have my connection to my drive set properly. But neither of these make sense because I am getting a list of the files in the directory from the server.

I'm also not quite sure I need the For Each ... Next Loop either. From my pocket reference manual and the MSDN library, the objFSObject.CopyFile should copy all files in the directory if I am using the wildcard "*.env", so there's no need to loop.
But even without the loop, I'm getting the error.
Can you show me the error of my ways ??
Thanks.

August 9th, 2008, 02:43 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Folding Points: 206875 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

The problem is in this line.

vb Code:

Original - vb Code
objFSObject.CopyFile objRootDir & objFile.Name, objTerrTrack

objFSObject.CopyFile objRootDir & objFile.Name, objTerrTrack

You are providing objects as parameters. The CopyFile method only accepts text strings as parameters. Try this.

vb Code:

Original - vb Code
objFSObject.CopyFile objFile.Path, objTerrTrack.Path

objFSObject.CopyFile objFile.Path, objTerrTrack.Path

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

August 11th, 2008, 06:19 PM

Hangman

Registered User

Join Date: Jul 2008

Posts: 29

Time spent in forums: 6 h 56 m 6 sec
Reputation Power: 0

Quote:

Originally Posted by Nilpo

The problem is in this line.

vb Code:

Original - vb Code
objFSObject.CopyFile objRootDir & objFile.Name, objTerrTrack

objFSObject.CopyFile objRootDir & objFile.Name, objTerrTrack

You are providing objects as parameters. The CopyFile method only accepts text strings as parameters. Try this.

vb Code:

Original - vb Code
objFSObject.CopyFile objFile.Path, objTerrTrack.Path

objFSObject.CopyFile objFile.Path, objTerrTrack.Path

Ok, I'm probably jumping the gun here but I'm going to put egg on my face anyway, ... HAAAAA !!! I think I've found something that'll stump you.

So, I tried what you suggested and I then received the error:
Object required: 'X:\temp\Terragen\TERA...'

I looked at this piece:

Quote:

FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"

from the MSDN Library ,

and then looked at this piece:

Quote:

Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
oFS.CopyFile "C:\zoomserv\data\Ds\00000006\import","C:\zoomserv\data\Ds\00000006\import.old"

from a support text , and wrote my line to reflect it like so:

vb Code:

Original - vb Code
objFSObject.CopyFile strRootDir & "*.env", strTerrTrack

objFSObject.CopyFile strRootDir & "*.env", strTerrTrack

But I still get the error: 'file not found'.
Now I did notice on the support text, the destination file is singular and the source file isn't listed per se.
Could I possibly be using the wrong command ?? I'm getting the impression the .CopyFile is for individual files and not a whole slew of them.

August 11th, 2008, 11:12 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

If you're getting an object required error it most likely means that the script is not connecting to the remote server (or drive).

Are you trying to copy an entire directory?

August 12th, 2008, 06:14 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,254

Time spent in forums: 6 Days 10 h 25 m 34 sec
Reputation Power: 667

You're object error is coming from this line:

vb Code:

Original - vb Code
Set objTerrTrack = objFSObject.GetFolder(objTerrDir & "\Track_1")

Set objTerrTrack = objFSObject.GetFolder(objTerrDir & "\Track_1")

You can't use an object reference here. It needs to be a string value.

vb Code:

Original - vb Code
Set objTerrTrack = objFSObject.GetFolder("C:\Program Files\Terragen\TERAFORM\Track_1")

Set objTerrTrack = objFSObject.GetFolder("C:\Program Files\Terragen\TERAFORM\Track_1")

You also need to remove the last comma from your MsgBox function. Leave it off if you aren't going to provide the optional parameter.

Here's your code rewritten. This should take care of any errors.

vb Code:

Original - vb Code

Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set objTerrDir = objFSObject.GetFolder("C:\Program Files\Terragen\TERAFORM")
strRootDir = "\temp\Terragen\TERAFORM\Track_1"
 
Set objTerrTrack = objFSObject.GetFolder("C:\Program Files\Terragen\TERAFORM\Track_1")
 
If objFSObject.DriveExists("X:") Then
    Set objRootDrive = objFSObject.GetDrive("X:")
Else
    MsgBox "You are not currently connected to the network." & vbCrLf & vbCrLf & _
            "Please reboot your machine to connect to the server, or contact your " & _
            "local I.T. administrator for assistance.", 0 + 48
    WScript.Quit
End If
 
Set objRootDir = objFSObject.GetFolder(objRootDrive.Path & strRootDir)
 
For Each objFile In objRootDir.Files
   strFileList = strFileList & objFile.Name & vbCrLf
Next
MsgBox strFileList, ,"List of files in " & objRootDir.Path
 ' I am getting the list of files
 
For Each objFile In objRootDir.Files
   objFSObject.CopyFile objRootDir.Path & objFile.Name, objTerrTrack.Path
 ' I am getting the error "File not found"
Next
 
MsgBox "Finished copying files"
WScript.Quit  'Terminate the script's execution

You need to be careful to pass the correct data types to your various functions and methods. A Folder object represents a physical folder, but does not represent the path to it. For that you will need the Path property of that folder object.

August 12th, 2008, 12:07 PM

Hangman

Registered User

Join Date: Jul 2008

Posts: 29

Time spent in forums: 6 h 56 m 6 sec
Reputation Power: 0

Nilpo, I really appreciate your help.

Quote:

Originally Posted by Nilpo

I am realizing this with your explanations and help, so thank you again.
I think I've got most of it figured out, with the exception of this continual error, "file not found".
I'd like to attach some pics of the return I'm getting, but I'm at a loss as to how this works on this board, so I'm going to post them instead. (I hope this works 'cause I'm getting confused) So, I run this ...

vb Code:

Original - vb Code

Option Explicit
Const cErrorMsg = "Directory Error"
Dim objFSObject, objUserDir, objUserTrack, objRootDrive, objRootDir, objFile
Dim strRootDir, strUserTrack, strFileList
Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set objUserDir = objFSObject.GetFolder("C:\Program Files\Terragen\TERAFORM")
strRootDir = "\temp\Terragen\TERAFORM\Track_1"

If objFSObject.FolderExists(objUserDir & "\Temp_Testing_1") Then
   Set objUserTrack = objFSObject.GetFolder(objUserDir & "\Temp_Testing_1")
rem     = "C:\Program Files\Terragen\TERAFORM\Temp_Testing_1"
  Else If objFSObject.FolderExists(objUserDir & "\Temp_Testing") Then
   Set objUserTrack = objFSObject.GetFolder(objUserDir & "\Temp_Testing")
rem     = "C:\Program Files\Terragen\TERAFORM\Temp_Testing"
  Else
   MsgBox "Your Track_1 directory is unavailable to add tracks." & vbCrLf & vbCrLf & _
          "Please contact your system administrator for assistance",0 + 48, cErrorMsg
   WScript.Quit
  End If
End If

MsgBox objUserTrack, ,"Current Users Directory"
' for testing purposes
If objFSObject.DriveExists("X:") Then
   Set objRootDrive = objFSObject.GetDrive("X:")
  Else
   MsgBox "You are not currently connected to the network." & vbCrLf & vbCrLf & _
          "Please reboot your machine to connect to the server, or contact your " & _
          "local I.T. administator for assistance.", 0 + 48, cErrorMsg
   WScript.Quit
End If
Set objRootDir = objFSObject.GetFolder(objRootDrive.Path & strRootDir)
rem     = "X:\temp\Terragen\TERAFORM\Track_1"

MsgBox objRootDir, ,"Root Directory on server"
' for testing purposes
For Each objFile In objRootDir.Files
   strFileList = strFileList & objFile.Name & vbCrLf
Next
MsgBox strFileList, ,"List of files in " & objRootDir.Path
' for testing purposes
For Each objFile In objRootDir.Files
   objFSObject.CopyFile objRootDir.Path & objFile.Name, objUserTrack.Path
Next
MsgBox "Finished copying files"
' for testing purposes
WScript.Quit  'Terminate the script's execution

Option Explicit
Const cErrorMsg = "Directory Error"
Dim objFSObject, objUserDir, objUserTrack, objRootDrive, objRootDir, objFile
Dim strRootDir, strUserTrack, strFileList
Set objFSObject = CreateObject("Scripting.FileSystemObject"