Questione : Devo generare uno scritto le copie la più nuova lima da 1 indice ad un altro

Sono nuovo ai principi fondamentali visivi ed ho bisogno di un certo aiuto. Ho esaminato l'alberino collegato sotto ma non potrei undetstand esso. Può chiunque darmi uno scritto del campione che un newbie può capire. Ho bisogno di uno scritto che cerca la più nuova lima in un dispositivo di piegatura e nelle copie che dal lascia da per dire dir1 nel href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_22925577.html " di dir2.

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

Risposta : Devo generare uno scritto le copie la più nuova lima da 1 indice ad un altro

Ciao, provare questo codice.

Riguardi,

Rob.
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:

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
'Definire il percorso del dispositivo di piegatura per trovare la più nuova lima qui:
strSourceFolder = “C:\Temp\Folder1„
'Definire il percorso del dispositivo di piegatura per trovare la più nuova lima qui:
strTargetFolder = “C:\Temp\Folder2„

'Assicurar che il dispositivo di piegatura di obiettivo abbia un taglio di trascinamento
Se di destra (strTargetFolder, 1) <> “\„ allora strTargetFolder = strTargetFolder & “\„

'Qui denominiamo la funzione di GetNewestFile, passante il percorso al dispositivo di piegatura di fonte affinchè cerchiamo
strNewestFilePath = GetNewestFile (strSourceFolder)

'Ora copiare la più nuova lima al dispositivo di piegatura di obiettivo
strNewestFilePath di objFSO.CopyFile, strTargetFolder, allineare

Lo strNewestFilePath di MsgBox & “è stato copiato„ & strTargetFolder

Funzione GetNewestFile (sPath di ByVal)

   sNewestFile = valore   del init di posizione di segnale minimo '

   Regolare il oFSO = CreateObject (“Scripting.FileSystemObject„)
   Regolare il oFolder = oFSO.GetFolder (sPath)
   Regolare i oFiles = oFolder.Files

   'enumerare le lime nel dispositivo di piegatura, trovante la più nuova lima
   Per ciascuno oFile nei oFiles
     Sul riassunto di errore dopo
     Se IsNull (sNewestFile) allora
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     dPrevDate di ElseIf  < oFile="">
Altre soluzioni  
 
programming4us programming4us