begin process at 2010 02 10 01:01:59
  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 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 Comment faire cette petite routine en ASPX? [ par tekanerahtatase ] Je suis habitué de travailler sur VB6.  Je viens de passer à ASPX.  comment faire cette petite routine en ASPX? Public Sub RechercherClient(name as [déplacé VB6 -> VBA] "PAS" Urgent : Compter nombre de page document PDF [ par llouisin ] bonjour, Voila mon sujet : Je voudrai qu'une macro Excel 2007 me trouve pour un répertoire donnée les info suivantes: - Le nom du fichier, (=> fo 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 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


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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,468 sec (3)

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