Cuestión : Necesito crear una escritura las copias el archivo más nuevo a partir de 1 directorio a otra

Soy nuevo a los fundamentos visuales y necesito una cierta ayuda. Miraba el poste ligado debajo pero no podría undetstand él. Puede cualquier persona darme una escritura de la muestra que un newbie pueda entender. Necesito una escritura que busque el archivo más nuevo de una carpeta y de copias que de deja para decir dir1 en el href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_22925577.html " de dir2.

el ramming/Languages/Visual_Basic/VB_Script/Q_22925577.html del e.com/Prog de http://www.experts-exchang class= del

Respuesta : Necesito crear una escritura las copias el archivo más nuevo a partir de 1 directorio a otra

Hola, intentar este código.

Respetos,

Robo.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
'Definir la trayectoria de la carpeta para encontrar el archivo más nuevo aquí:
strSourceFolder = “C:\Temp\Folder1”
'Definir la trayectoria de la carpeta para encontrar el archivo más nuevo aquí:
strTargetFolder = “C:\Temp\Folder2”

'Cerciorarse de que la carpeta de blanco tenga una raya vertical que se arrastra
Si es derecho (strTargetFolder, 1) <> “\” entonces strTargetFolder = strTargetFolder y “\”

'Aquí llamamos la función de GetNewestFile, pasando la trayectoria a la carpeta de la fuente para que busque
strNewestFilePath = GetNewestFile (strSourceFolder)

'Ahora copiar el archivo más nuevo a la carpeta de blanco
strNewestFilePath de objFSO.CopyFile, strTargetFolder, verdad

El strNewestFilePath de MsgBox y “fue copiado” y strTargetFolder

Función GetNewestFile (sPath de ByVal)

   sNewestFile = valor   del init de la falta de información '

   Fijar el oFSO = CreateObject (“Scripting.FileSystemObject”)
   Fijar el oFolder = oFSO.GetFolder (el sPath)
   Fijar los oFiles = oFolder.Files

   'enumerar los archivos en la carpeta, encontrando el archivo más nuevo
   Para cada uno oFile en oFiles
     En curriculum vitae del error después
     Si IsNull (sNewestFile) entonces
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     dPrevDate de ElseIf  < oFile="">
Otras soluciones  
 
programming4us programming4us