begin process at 2012 02 13 15:10:31
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

Demande aide modification script...Merci!


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Demande aide modification script...Merci!

lundi 1 octobre 2007 à 13:21:28 | Demande aide modification script...Merci!

bil800

Bonjour,

Je souhaitres une aide svp pour ce script, que j'ai trouvé, ca sert à éffacer automatiquement des fichiers dans un dossier, selon une date de modification qu'on choisie.

Ce script fonctionne parfetement, mais seulement je voudrais le modifier, afin de supprimer des fichiers non pas selon leur date, mais plutôt l'Heure de modification...

C'est possible ca ??

J'ai beaucoup cherché sur ce site un script du genre, même sur google, mais sans succés....

Merci beaucoup pour votre aide, mes connaissance sont vraiment limitées.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")  
strFolderName = "C:\test"
Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent")
'Wscript.Echo strFolderName
arrFolderPath = Split(strFolderName, "\")
strNewPath = ""
For i = 1 to Ubound(arrFolderPath)
    strNewPath = strNewPath & "\\" & arrFolderPath(i)
Next
strPath = strNewPath & "\\"
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where Path = '" & strPath & "'")
For Each objFile in colFiles
    Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
     'Wscript.Echo objFile.Name & chr (10) &  objReadOnlyFile.DateLastModified
 if DateDiff("d",objReadOnlyFile.DateLastModified ,Date)>10 then
     objFile.delete
end if
Next
For Each objFolder in colSubfolders
    GetSubFolders strFolderName
Next
Sub GetSubFolders(strFolderName)
    Set colSubfolders2 = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
            & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")
    For Each objFolder2 in colSubfolders2
        strFolderName = objFolder2.Name
        'Wscript.Echo
        'Wscript.Echo objFolder2.Name
        arrFolderPath = Split(strFolderName, "\")
        strNewPath = ""
        For i = 1 to Ubound(arrFolderPath)
            strNewPath = strNewPath & "\\" & arrFolderPath(i)
        Next
        strPath = strNewPath & "\\"
        Set colFiles = objWMIService.ExecQuery _
            ("Select * from CIM_DataFile where Path = '" & strPath & "'")
        For Each objFile in colFiles
        Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
        if DateDiff("d",objReadOnlyFile.DateLastModified ,Date)>10 then
            'Wscript.Echo objFile.Name & chr (10) &  objReadOnlyFile.DateLastModified
            objFile.delete
          end if
        Next
        GetSubFolders strFolderName
    Next
End Sub
lundi 1 octobre 2007 à 13:35:41 | Re : Demande aide modification script...Merci!

JMO

Membre Club


 Bonjour,


Il suffit de modifier les 2 lignes
if DateDiff("d",objReadOnlyFile.DateLastModified ,Date)>10 Then

yyyy Année
qTrimestre
mMois
yJour de l'année
dJour
wJour de la semaine
wwSemaine
hHeure
nMinute
sSeconde


jean-marc
lundi 1 octobre 2007 à 14:03:48 | Re : Demande aide modification script...Merci!

bil800

Bonjour,

Merci pour votre réponse,
j'ai modififé les deux lignes comme ca :

if DateDiff("h",objReadOnlyFile.DateLastModified ,Date)>1 then

si je comprend bien normalement en modifiant cette ligne ainsi, ca supprime les fichiers dont leur dernière date de modification est superieure à 1 heure, mais ca a pas marché...:/

lundi 1 octobre 2007 à 18:34:41 | Re : Demande aide modification script...Merci!

bil800

Réponse acceptée !
Problème résolu! :)

Pour ceux que ca intèresse, j'ai remplacé les deux lignes en question par :

if DateDiff("s",objReadOnlyFile.DateLastModified ,Now)>3600 then

Merci jean quand même! :)


Cette discussion est classée dans : set, name, strfoldername, strnewpath, objfile


Répondre à ce message

Sujets en rapport avec ce message

Effacer fichier de plus de x jours [ par vyper55 ] je suis débutant en vbs, j'ai recupérer ce script qui permet de nettoyer les fichiers de plus de x jours avec une interface graphiquele but de lancer modification code pour supp fichier dépassant une date [ par ice1 ] bonjour à tous,voilà j'ai trouvé sur ce forum un super code de mohaxx qui marche vraiment nickel mais j'ai besoin de l'adapter à mes besoins. j'aimera Demande de l'aide VBSCRIPT [ par JHON44 ] Bonjour à toutes et à tous, Je cherche quelqu'un pour me donner un coups de main svp: Voilà, j'ai un script en vbs qui qui marche bien pour nettoyer Supprimer fichiers et repertoires datant de plus de 7 jours [ par Rode69 ] Bonjour, A l'aide du script de mohax007 trouvable sur : http://www.vbfrance.com/codes/SUPPRIME-FICHIERS-DATANT-PLUS-15-JOURS_33195.aspx Son script Suppression de fichier de plus de 15 jours [ par pierremarc35 ] Bonjour, je tiens tout d'abords à remercier celles et ceux qui participe à ce forum et qui nous mettes leurs code à disposition. Je me suis inspiré d If else qui ne focntionne pas sur une autre machine [ par jeanluc065 ] Bonjour à Tous et toutes, En access 2002, JMO m'a écrit un code qui fonctionne super bien chez moi ( vérification du format de fichiers xls en boucle, Group name dans Active Directory [ par ws ] Bonjour à tous,Je cherche à obtenir le nom des groupes (sammacountname) dont un utilisateur fait parti. Le bout de code ci-dessous me donne le nom de {petit casse-tete} requete WMI et filtre avec la commande if then [ par kerberos69 ] Bonjour a tousvoila je suis en plein dans la redaction d'un script vbs, je me debrouille mais je ne suis pas un expert.l'objectif est de lister tous l Insert Into en VBS [ par Kmaa ] voila j'ai un code source de ce type[code]'*************************************************************************' Configuration parameters         Deplacement de fichier [ par fabricioliking ] Voila, j'aimerai pouvoir copier à la volé tous les fichiers présent dans le File.Name mais vb me signale une erreur sur " Set oFl = oFSO.GetFile("C:\D


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,390 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales