copy remote file to local machine in VB Closed

Question

Hello,

Am new to VbScript, now I need to write a vbscript to copy a file from a remote(mainly non-windows) machine to my local machine at a given location. 
Please can you help me with it.

LouisSteph · Accepted Answer

Dear Simmi, 

Below is a sample that can help you in undertaking the task:

Dim oFS     : Set oFS    = CreateObject( "Scripting.FileSystemObject" )
   Dim sSrcDir : sSrcDir    = "//server\share"
   Dim sDstDir : sDstDir    = oFS.GetAbsolutePathName( "your\folder" ) & "\"
 
   WScript.Echo "sSrcDir:", sSrcDir
   WScript.Echo "sDstDir:", sDstDir
 
   If Not oFS.FolderExists( sDstDir ) Then oFS.CreateFolder sDstDir
 
   Dim oSrcFiles : Set oSrcFiles = oFS.GetFolder( sSrcDir ).Files
   Dim oFile, sFSpec
   For Each oFile In oSrcFiles
       WScript.Echo "Src    ", oFile.Path
       sFSpec = sDstDir & oFile.Name
       If oFS.FileExists( sFSpec ) Then
          WScript.Echo "Fnd    ", sFSpec
          If oFile.DateLastModified > oFS.GetFile( sFSpec ).DateLastModified Then
             WScript.Echo "Cpy (D)", sFSpec
             oFile.Copy sFSpec
          End If
       Else
          WScript.Echo "Cpy (N)", sFSpec
          oFile.Copy sFSpec
       End If
   Next
 
Thanks in advance.

prem · Answer

how to connect a vb program to system file in (wordpad)

Copy remote file to local machine in VB

2 responses

Similar discussions

Subscribe To Our Newsletter!