FSO

Hi everyone,

I'm having troubles with the FileSystemObject. I have two servers and I use
the FSO to make a backup from one to another. The connection between this
servers are too fast (1gbps) but, when I use the FSO with the CopyFile
method, this files are copied at no more than 10mbps. It's very slow. I
think that is a kind of problem that have the FSO and I ask you about if
there is another method to do it. I copy here a part of my vbs code

Thanks in advance,
Gregorio Aranda.
fichero_origen = subfolder.path & "\" & objFile.name
fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino) &
"\" & objFile.Name
Set fecha = objFSO.GetFile(fichero_origen)
fecha_fichero = fecha.DateCreated
if datediff("d",fecha_fichero,now())<14 then
if not objFSO.fileexists(fichero_destino) then
objFSO.CopyFile fichero_origen,fichero_destino,true
sw=0
end if
else
objFSO.DeleteFile (fichero_origen)
if objFSO.fileexists(fichero_destino) then
objFSO.DeleteFile (fichero_destino)
end if
end if

Pegasus
Wed Mar 12 05:04:39 CDT 2008


"Gregorio Aranda" <nospam@micorreo.es> wrote in message
news:ONQ2UrBhIHA.5348@TK2MSFTNGP03.phx.gbl...
> Hi everyone,
>
> I'm having troubles with the FileSystemObject. I have two servers and I
> use the FSO to make a backup from one to another. The connection between
> this servers are too fast (1gbps) but, when I use the FSO with the
> CopyFile method, this files are copied at no more than 10mbps. It's very
> slow. I think that is a kind of problem that have the FSO and I ask you
> about if there is another method to do it. I copy here a part of my vbs
> code
>
> Thanks in advance,
> Gregorio Aranda.
> fichero_origen = subfolder.path & "\" & objFile.name
> fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino) &
> "\" & objFile.Name
> Set fecha = objFSO.GetFile(fichero_origen)
> fecha_fichero = fecha.DateCreated
> if datediff("d",fecha_fichero,now())<14 then
> if not objFSO.fileexists(fichero_destino) then
> objFSO.CopyFile fichero_origen,fichero_destino,true
> sw=0
> end if
> else
> objFSO.DeleteFile (fichero_origen)
> if objFSO.fileexists(fichero_destino) then
> objFSO.DeleteFile (fichero_destino)
> end if
> end if

I don't have access to such a fast link, so I cannot verify your
observation. However, there are some very powerful inbuilt
commands to do this sort of thing, e.g. robocopy.exe:
@echo off
set source=d:\User Files
set destination=e:\Backup Files
set AgeLimit=14
robocopy /s /MinAge:%AgeLimit% /R:1 /W:5 "%Source%" "%Destination%"
*.*

Gregorio
Wed Mar 12 05:31:57 CDT 2008

to test it, you only need to have a local network with 100mbps speed. the
copy with the FSO will be done at 10mbps


"Pegasus (MVP)" <I.can@fly.com.oz> escribió en el mensaje
news:uNFR9hChIHA.5348@TK2MSFTNGP03.phx.gbl...
>
> "Gregorio Aranda" <nospam@micorreo.es> wrote in message
> news:ONQ2UrBhIHA.5348@TK2MSFTNGP03.phx.gbl...
>> Hi everyone,
>>
>> I'm having troubles with the FileSystemObject. I have two servers and I
>> use the FSO to make a backup from one to another. The connection between
>> this servers are too fast (1gbps) but, when I use the FSO with the
>> CopyFile method, this files are copied at no more than 10mbps. It's very
>> slow. I think that is a kind of problem that have the FSO and I ask you
>> about if there is another method to do it. I copy here a part of my vbs
>> code
>>
>> Thanks in advance,
>> Gregorio Aranda.
>> fichero_origen = subfolder.path & "\" & objFile.name
>> fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino)
>> & "\" & objFile.Name
>> Set fecha = objFSO.GetFile(fichero_origen)
>> fecha_fichero = fecha.DateCreated
>> if datediff("d",fecha_fichero,now())<14 then
>> if not objFSO.fileexists(fichero_destino) then
>> objFSO.CopyFile fichero_origen,fichero_destino,true
>> sw=0
>> end if
>> else
>> objFSO.DeleteFile (fichero_origen)
>> if objFSO.fileexists(fichero_destino) then
>> objFSO.DeleteFile (fichero_destino)
>> end if
>> end if
>
> I don't have access to such a fast link, so I cannot verify your
> observation. However, there are some very powerful inbuilt
> commands to do this sort of thing, e.g. robocopy.exe:
> @echo off
> set source=d:\User Files
> set destination=e:\Backup Files
> set AgeLimit=14
> robocopy /s /MinAge:%AgeLimit% /R:1 /W:5 "%Source%" "%Destination%"
> *.*
>

Pegasus
Wed Mar 12 06:17:59 CDT 2008

I ran this script on a 100 MBits/s network:
Set objfso = CreateObject("Scripting.FileSystemObject")
fichero_origen = "c:\temp\big.bin"
fichero_destino = "\\pc11\c$\temp\big.bin"
objFSO.CopyFile fichero_origen,fichero_destino,true

The script took 1.1 seconds to copy a 10 MByte file from
the machine called "Server" to PC11. When using the
"copy" command from the Command Prompt, it took
1.0 seconds.


"Gregorio Aranda" <nospam@micorreo.es> wrote in message
news:en$yOxChIHA.4692@TK2MSFTNGP05.phx.gbl...
> to test it, you only need to have a local network with 100mbps speed. the
> copy with the FSO will be done at 10mbps
>
>
> "Pegasus (MVP)" <I.can@fly.com.oz> escribió en el mensaje
> news:uNFR9hChIHA.5348@TK2MSFTNGP03.phx.gbl...
>>
>> "Gregorio Aranda" <nospam@micorreo.es> wrote in message
>> news:ONQ2UrBhIHA.5348@TK2MSFTNGP03.phx.gbl...
>>> Hi everyone,
>>>
>>> I'm having troubles with the FileSystemObject. I have two servers and I
>>> use the FSO to make a backup from one to another. The connection between
>>> this servers are too fast (1gbps) but, when I use the FSO with the
>>> CopyFile method, this files are copied at no more than 10mbps. It's very
>>> slow. I think that is a kind of problem that have the FSO and I ask you
>>> about if there is another method to do it. I copy here a part of my vbs
>>> code
>>>
>>> Thanks in advance,
>>> Gregorio Aranda.
>>> fichero_origen = subfolder.path & "\" & objFile.name
>>> fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino)
>>> & "\" & objFile.Name
>>> Set fecha = objFSO.GetFile(fichero_origen)
>>> fecha_fichero = fecha.DateCreated
>>> if datediff("d",fecha_fichero,now())<14 then
>>> if not objFSO.fileexists(fichero_destino) then
>>> objFSO.CopyFile fichero_origen,fichero_destino,true
>>> sw=0
>>> end if
>>> else
>>> objFSO.DeleteFile (fichero_origen)
>>> if objFSO.fileexists(fichero_destino) then
>>> objFSO.DeleteFile (fichero_destino)
>>> end if
>>> end if
>>
>> I don't have access to such a fast link, so I cannot verify your
>> observation. However, there are some very powerful inbuilt
>> commands to do this sort of thing, e.g. robocopy.exe:
>> @echo off
>> set source=d:\User Files
>> set destination=e:\Backup Files
>> set AgeLimit=14
>> robocopy /s /MinAge:%AgeLimit% /R:1 /W:5 "%Source%" "%Destination%"
>> *.*
>>
>
>

TDM
Wed Mar 12 11:40:49 CDT 2008


"Gregorio Aranda" <nospam@micorreo.es> wrote in message
news:ONQ2UrBhIHA.5348@TK2MSFTNGP03.phx.gbl...
> Hi everyone,
>
> I'm having troubles with the FileSystemObject. I have two servers and I
> use the FSO to make a backup from one to another. The connection between
> this servers are too fast (1gbps) but, when I use the FSO with the
> CopyFile method, this files are copied at no more than 10mbps. It's very
> slow. I think that is a kind of problem that have the FSO and I ask you
> about if there is another method to do it. I copy here a part of my vbs
> code
>
> Thanks in advance,
> Gregorio Aranda.
> fichero_origen = subfolder.path & "\" & objFile.name
> fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino) &
> "\" & objFile.Name
> Set fecha = objFSO.GetFile(fichero_origen)
> fecha_fichero = fecha.DateCreated
> if datediff("d",fecha_fichero,now())<14 then
> if not objFSO.fileexists(fichero_destino) then
> objFSO.CopyFile fichero_origen,fichero_destino,true
> sw=0
> end if
> else
> objFSO.DeleteFile (fichero_origen)
> if objFSO.fileexists(fichero_destino) then
> objFSO.DeleteFile (fichero_destino)
> end if
> end if
>
>

Testing by Pegasus shows that he(she?) is indeed
getting the full 100mbs when you factor in a bit
of network overhead.

I am sure this is not your problem, but I have seen
NIC's connect at speeds that are not optimal, or
have been configured to not use the Auto detect
for connection speed. I suggest you double check
both Nic's to find out if they are indeed set to auto,
or maybe try forcing them both to 1000mbs/Full Duplex
and see what that gets you. Other things to
consider, what is in "between" each server ? Each
piece of network gear(switch,hub,router) will add
some latency. You should make sure this is set to
a minimum.

However, I do have to also vote for Robocopy, or
even Xcopy over FSO. I had too many issues with
FSO so I have dropped it altogether for large file
copies.

Just my $.02.

TDM

Gregorio
Thu Mar 13 02:54:01 CDT 2008

Where can I get the "Robocopy" from a "secure" place???

Thanks for all your recomendations,
Gregorio Aranda.


"Pegasus (MVP)" <I.can@fly.com.oz> escribió en el mensaje
news:O%23Xt6KDhIHA.1168@TK2MSFTNGP02.phx.gbl...
>I ran this script on a 100 MBits/s network:
> Set objfso = CreateObject("Scripting.FileSystemObject")
> fichero_origen = "c:\temp\big.bin"
> fichero_destino = "\\pc11\c$\temp\big.bin"
> objFSO.CopyFile fichero_origen,fichero_destino,true
>
> The script took 1.1 seconds to copy a 10 MByte file from
> the machine called "Server" to PC11. When using the
> "copy" command from the Command Prompt, it took
> 1.0 seconds.
>
>
> "Gregorio Aranda" <nospam@micorreo.es> wrote in message
> news:en$yOxChIHA.4692@TK2MSFTNGP05.phx.gbl...
>> to test it, you only need to have a local network with 100mbps speed. the
>> copy with the FSO will be done at 10mbps
>>
>>
>> "Pegasus (MVP)" <I.can@fly.com.oz> escribió en el mensaje
>> news:uNFR9hChIHA.5348@TK2MSFTNGP03.phx.gbl...
>>>
>>> "Gregorio Aranda" <nospam@micorreo.es> wrote in message
>>> news:ONQ2UrBhIHA.5348@TK2MSFTNGP03.phx.gbl...
>>>> Hi everyone,
>>>>
>>>> I'm having troubles with the FileSystemObject. I have two servers and I
>>>> use the FSO to make a backup from one to another. The connection
>>>> between this servers are too fast (1gbps) but, when I use the FSO with
>>>> the CopyFile method, this files are copied at no more than 10mbps. It's
>>>> very slow. I think that is a kind of problem that have the FSO and I
>>>> ask you about if there is another method to do it. I copy here a part
>>>> of my vbs code
>>>>
>>>> Thanks in advance,
>>>> Gregorio Aranda.
>>>> fichero_origen = subfolder.path & "\" & objFile.name
>>>> fichero_destino =
>>>> replace(subfolder.path,carpeta_inicio,carpeta_destino) & "\" &
>>>> objFile.Name
>>>> Set fecha = objFSO.GetFile(fichero_origen)
>>>> fecha_fichero = fecha.DateCreated
>>>> if datediff("d",fecha_fichero,now())<14 then
>>>> if not objFSO.fileexists(fichero_destino) then
>>>> objFSO.CopyFile fichero_origen,fichero_destino,true
>>>> sw=0
>>>> end if
>>>> else
>>>> objFSO.DeleteFile (fichero_origen)
>>>> if objFSO.fileexists(fichero_destino) then
>>>> objFSO.DeleteFile (fichero_destino)
>>>> end if
>>>> end if
>>>
>>> I don't have access to such a fast link, so I cannot verify your
>>> observation. However, there are some very powerful inbuilt
>>> commands to do this sort of thing, e.g. robocopy.exe:
>>> @echo off
>>> set source=d:\User Files
>>> set destination=e:\Backup Files
>>> set AgeLimit=14
>>> robocopy /s /MinAge:%AgeLimit% /R:1 /W:5 "%Source%"
>>> "%Destination%" *.*
>>>
>>
>>
>
>

Pegasus
Thu Mar 13 03:03:24 CDT 2008

I such cases I usually type

download "robocopy.exe"

into a Google search windows. It will immediately give
you the appropriate Microsoft site.


"Gregorio Aranda" <nospam@micorreo.es> wrote in message
news:eNcuo9NhIHA.200@TK2MSFTNGP02.phx.gbl...
> Where can I get the "Robocopy" from a "secure" place???
>
> Thanks for all your recomendations,
> Gregorio Aranda.
>
>
> "Pegasus (MVP)" <I.can@fly.com.oz> escribió en el mensaje
> news:O%23Xt6KDhIHA.1168@TK2MSFTNGP02.phx.gbl...
>>I ran this script on a 100 MBits/s network:
>> Set objfso = CreateObject("Scripting.FileSystemObject")
>> fichero_origen = "c:\temp\big.bin"
>> fichero_destino = "\\pc11\c$\temp\big.bin"
>> objFSO.CopyFile fichero_origen,fichero_destino,true
>>
>> The script took 1.1 seconds to copy a 10 MByte file from
>> the machine called "Server" to PC11. When using the
>> "copy" command from the Command Prompt, it took
>> 1.0 seconds.
>>
>>
>> "Gregorio Aranda" <nospam@micorreo.es> wrote in message
>> news:en$yOxChIHA.4692@TK2MSFTNGP05.phx.gbl...
>>> to test it, you only need to have a local network with 100mbps speed.
>>> the copy with the FSO will be done at 10mbps
>>>
>>>
>>> "Pegasus (MVP)" <I.can@fly.com.oz> escribió en el mensaje
>>> news:uNFR9hChIHA.5348@TK2MSFTNGP03.phx.gbl...
>>>>
>>>> "Gregorio Aranda" <nospam@micorreo.es> wrote in message
>>>> news:ONQ2UrBhIHA.5348@TK2MSFTNGP03.phx.gbl...
>>>>> Hi everyone,
>>>>>
>>>>> I'm having troubles with the FileSystemObject. I have two servers and
>>>>> I use the FSO to make a backup from one to another. The connection
>>>>> between this servers are too fast (1gbps) but, when I use the FSO with
>>>>> the CopyFile method, this files are copied at no more than 10mbps.
>>>>> It's very slow. I think that is a kind of problem that have the FSO
>>>>> and I ask you about if there is another method to do it. I copy here a
>>>>> part of my vbs code
>>>>>
>>>>> Thanks in advance,
>>>>> Gregorio Aranda.
>>>>> fichero_origen = subfolder.path & "\" & objFile.name
>>>>> fichero_destino =
>>>>> replace(subfolder.path,carpeta_inicio,carpeta_destino) & "\" &
>>>>> objFile.Name
>>>>> Set fecha = objFSO.GetFile(fichero_origen)
>>>>> fecha_fichero = fecha.DateCreated
>>>>> if datediff("d",fecha_fichero,now())<14 then
>>>>> if not objFSO.fileexists(fichero_destino) then
>>>>> objFSO.CopyFile fichero_origen,fichero_destino,true
>>>>> sw=0
>>>>> end if
>>>>> else
>>>>> objFSO.DeleteFile (fichero_origen)
>>>>> if objFSO.fileexists(fichero_destino) then
>>>>> objFSO.DeleteFile (fichero_destino)
>>>>> end if
>>>>> end if
>>>>
>>>> I don't have access to such a fast link, so I cannot verify your
>>>> observation. However, there are some very powerful inbuilt
>>>> commands to do this sort of thing, e.g. robocopy.exe:
>>>> @echo off
>>>> set source=d:\User Files
>>>> set destination=e:\Backup Files
>>>> set AgeLimit=14
>>>> robocopy /s /MinAge:%AgeLimit% /R:1 /W:5 "%Source%"
>>>> "%Destination%" *.*
>>>>
>>>
>>>
>>
>>
>
>