Question : Ajouter l'horodateur au dossier outfile

Bonjour, le

I ont un vbscript qui obtient la version de dossier des dossiers locaux diffrerent de serval, crée un dossier de rendement, puis la version de dossier du
puts dans une corde de message et écrit à un dossier d'ouput. Comment est-ce que j'ajoute un horodateur au dossier de rendement ? est le

This ce que j'ai : le

'créent l'objFSO de système de fichiers Object
Set =

'Create de CreateObject (le « Scripting.FileSystemObject ») le rendement File
Set objOutputFile = le

'd'objFSO.CreateTextFile (strOutputFile, vrai, vrai) obtiennent la version d'un dossier et l'ont mise dans un string
For i = 0 au
d'UBound (arrFiles) si des arrFiles (i) arrFiles de then
ProcessFile de "" de <> (extrémité If
Next

'd'i)
ferment strMsg (strFile) du
de File
objOutputFile.Close

Function ProcessFile de rendement le faible, strVersion, le timestamp
« s'assurent l'exists
de dossier si objFSO.FileExists (strFile) = strMsg faux de Then
= strFile et  » - Dossier non trouvé. le « 
Else
 » obtiennent la version du dossier et l'ont mise dans un strVersion du string
de message = un strtimestamp du
d'objFSO.GetFileVersion (strFile) = un strMsg du
de temps () = strFile et « « et l'extrémité If

de strVersion et de strtimestamp
« écrivent la corde de message au strMsg

de Screen
Wscript.Echo » écrivent la corde de message au &vbCRLF
End Function de strMsg du
objOutputFile.Write de dossier de rendement (avec du CR LF) class= de

Réponse : Ajouter l'horodateur au dossier outfile

essayer ceci
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 :

'Créer l'objet de système de fichiers
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)

'Créer le dossier de rendement
Placer objOutputFile = objFSO.CreateTextFile (strOutputFile, vrai, vrai)

'Obtenir la version d'un dossier et la mettre dans une corde de message
Pour I = 0 à UBound (arrFiles)
                si arrFiles (i) <> "" alors
                                arrFiles de ProcessFile (i)
                Finir si
Après

'Étroit le dossier de rendement
objOutputFile.Close

Fonction ProcessFile (strFile)
                Faible strMsg, strVersion, horodateur
                'S'assurer que le dossier existe
                Si objFSO.FileExists (strFile) = faux puis
                                strMsg = strFile et « - dossier non trouvé.  »
                Autrement
                'Obtenir la version du dossier et la mettre dans une corde de message
                                strVersion = objFSO.GetFileVersion (strFile)
                        strtimestamp = temps ()
                                strMsg = strFile et « « et strVersion et strtimestamp
                Finir si

                'Écrire la corde de message à l'écran
                strMsg de Wscript.Echo

                'Écrire la corde de message au dossier de rendement (avec du CR LE LF)
                objOutputFile.Write maintenant et « :  » et &vbCRLF de strMsg
Fonction de fin
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