Vraag : Ik moet een manuscript de exemplaren het nieuwste dossier van 1 folder aan een andere creëren

Ik ben nieuw aan Visuele grondbeginselen en heb één of andere hulp nodig. Ik bekeek de hieronder verbonden post maar kon niet undetstand het. Kan iedereen me een steekproefmanuscript geven dat een newbie kan begrijpen. Ik heb een manuscript nodig dat het nieuwste dossier in een omslag zoekt en het van laat dir1 in dir2.

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

Antwoord : Ik moet een manuscript de exemplaren het nieuwste dossier van 1 folder aan een andere creëren

Hallo, probeer deze code.

Achting,

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:

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
'Bepaal de omslagweg om het nieuwste dossier hier te vinden:
strSourceFolder = „C:\Temp\Folder1“
'Bepaal de omslagweg om het nieuwste dossier hier te vinden:
strTargetFolder = „C:\Temp\Folder2“

'Zorg ervoor de doelomslag een slepende schuine streep heeft
Als Juiste (strTargetFolder, 1) <> „\“ toen strTargetFolder = strTargetFolder & „\“

'Roepen wij hier de functie GetNewestFile die, de weg overgaan tot de bronomslag voor het aan onderzoek
strNewestFilePath = GetNewestFile (strSourceFolder)

'Kopi�ër nu het nieuwste dossier aan de doelomslag
objFSO.CopyFile strNewestFilePath, strTargetFolder, Waar

MsgBox werd strNewestFilePath & „gekopi�ërd aan“ & strTargetFolder

Functie GetNewestFile (ByVal sPath)

   sNewestFile = Ongeldige   'initwaarde

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

   'som de dossiers in de omslag op, vindend het nieuwste dossier
   Voor elk oFile in oFiles
     Op Fout hervat daarna
     Als (sNewestFile) IsNull toen
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     ElseIf dPrevDate  < oFile="">
Andere oplossingen  
 
programming4us programming4us