Question : Je dois créer un manuscrit les copies le plus nouveau dossier à partir de 1 annuaire à l'autre

Je suis nouveau aux fondations visuelles et ai besoin de l'aide. J'ai regardé le poteau lié ci-dessous mais ne pourrais pas undetstand il. Peut n'importe qui me donner un manuscrit témoin qu'un internaute novice peut comprendre. J'ai besoin d'un manuscrit qui recherche le plus nouveau dossier dans une chemise et des copies qu'il du du laisser indiquer dir1 dans le href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_22925577.html " de dir2.

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

Réponse : Je dois créer un manuscrit les copies le plus nouveau dossier à partir de 1 annuaire à l'autre

Bonjour, essayer ce code.

Respect,

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 :

Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
'Définir le chemin de chemise pour trouver le plus nouveau dossier ici :
strSourceFolder = « C:\Temp\Folder1 »
'Définir le chemin de chemise pour trouver le plus nouveau dossier ici :
strTargetFolder = « C:\Temp\Folder2 »

'S'assurer que la chemise de cible a une barre oblique de remorquage
Si droit (strTargetFolder, 1) <> « \ » puis strTargetFolder = strTargetFolder et « \ »

'Ici nous appelons la fonction de GetNewestFile, passant le chemin à la chemise de source pour qu'elle recherche
strNewestFilePath = GetNewestFile (strSourceFolder)

'Copier maintenant le plus nouveau dossier à la chemise de cible
strNewestFilePath d'objFSO.CopyFile, strTargetFolder, vrai

Le strNewestFilePath de MsgBox et « a été copié » et strTargetFolder

Fonction GetNewestFile (sPath de ByVal)

   sNewestFile = valeur   d'init de nulle '

   Placer l'oFSO = le CreateObject (« Scripting.FileSystemObject »)
   Placer l'oFolder = l'oFSO.GetFolder (le sPath)
   Placer les oFiles = l'oFolder.Files

   'énumérer les dossiers dans la chemise, trouvant le plus nouveau dossier
   Pour chacun oFile dans les oFiles
     Sur le résumé d'erreur après
     S'IsNull (sNewestFile) puis
       sNewestFile = oFile.Path
       dPrevDate = oFile.DateLastModified
     dPrevDate d'ElseIf  < oFile="">
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us