Frage : Ich muss einen Index die Kopien die neueste Akte von 1 Verzeichnis zu anderen verursachen

Ich bin zu den Sichtgrundlagen neu und benötige etwas Hilfe. Ich betrachtete, den Pfosten, der unter aber verbunden wurde, könnte nicht undetstand es. Kann jedermann mir einen Beispielindex geben, den ein Neuer verstehen kann. Ich benötige einen Index, der nach der neuesten Akte in einem Faltblatt und in den Kopien sucht, die, es von dir1 in dir2.

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

Antwort : Ich muss einen Index die Kopien die neueste Akte von 1 Verzeichnis zu anderen verursachen

Hallo, diesen Code versuchen.

Respekt,

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:
6:
37:
38:
39:
40:
41:
42:
43:

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
'Den Faltblattweg definieren, um die neueste Akte hier zu finden:
strSourceFolder = „C:\Temp\Folder1“
'Den Faltblattweg definieren, um die neueste Akte hier zu finden:
strTargetFolder = „C:\Temp\Folder2“

'Sicherstellen, dass das Zielfaltblatt einen schleppenden Schrägstrich hat
Wenn recht (strTargetFolder, 1) <> „\“ dann strTargetFolder = strTargetFolder u. „\“

'Hier benennen wir die GetNewestFile Funktion und führen den Weg zum Quellfaltblatt, damit es sucht
strNewestFilePath = GetNewestFile (strSourceFolder)

'Die neueste Akte zum Zielfaltblatt jetzt kopieren
objFSO.CopyFile strNewestFilePath, strTargetFolder, zutreffend

MsgBox strNewestFilePath u. „wurde“ u. strTargetFolder kopiert

Funktion GetNewestFile (ByVal sPath)

   sNewestFile = Null   'init Wert

   oFSO = CreateObject („Scripting.FileSystemObject“) einstellen
   oFolder = oFSO.GetFolder (sPath) einstellen
   oFiles = oFolder.Files einstellen

   'die Akten im Faltblatt aufzählen und die neueste Akte finden
   Für jedes oFile in den oFiles
     Auf Störungs-Zusammenfassung zunächst
     Wenn IsNull (sNewestFile) dann
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     ElseIf dPrevDate  < oFile="">
Weitere Lösungen  
 
programming4us programming4us