VBScript pour déplacer un fichier avec des caractères génériques, si elle existe

Je cherche à créer un script qui vérifie l'existence d'archives du journal des événements de fichiers et, si tous les fichiers existent, se déplace vers un autre dossier. L'exécution de ce script ne fait rien et ne donne aucune erreur. Je crois que le caractère générique dans l'instruction if est ce qui me donne des problèmes. Je suis nouveau sur le vbscript et l'écriture de scripts en général, et il serait souhaitable que quelques conseils.

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("d:\eventlogs\Archive*.evtx")) Then
    FSO.CopyFile "d:\eventlogs\Archive*.evtx" , "d:\eventlogs\archive\"
    FSO.Deletefile "d:\eventlogs\archive*.evtx"
End if
Pourquoi VBScript quand DOS fichiers batch pouvez le faire ci-dessus de plus simple?

OriginalL'auteur user3157550 | 2014-01-03

  1. 4

    Vous pouvez reproduire une wild card de recherche en utilisant une combinaison de instr() et right(), ou tout simplement plusieurs instr().

    Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "d:\eventlogs\"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
For Each objFile in colFiles
   if instr(objFile.Name,"Archive") <> 0 AND instr(objFile.Name,".evtx") <> 0 then
       objFSO.MoveFile objFile.Name, "archive\" + objFile.Name
   end if
Next

    OriginalL'auteur Ahmad El-Hoss

  2. 2

    La méthode de recherche de fichiers avec des caractères génériques dans VBScript:

    1. Obtenir la collection de fichiers à partir du dossier contenant
    2. Pour chaque fichier dans le filecollection:
    3. Test le nom de fichier avec une expression régulière sur un certain modèle
    4. Si le test réussit, faire une action avec ce fichier
    5. Fichier suivant
    Dans ce cas, je ferais des comparaisons de chaînes pour l'extension et le début du nom de fichier peut être plus facile à manipuler qu'une expression régulière.

    OriginalL'auteur AutomatedChaos