[PROBLEME] Comment supprimer les dates des fichiers ?

Vous recherchez un programme, une solution, posez votre question ici.
Répondre
Avatar du membre
Auteur du sujet
ThiWeb
Administrateur
Administrateur
Messages : 9221
Enregistré le : il y a 9 ans
Localisation : On earth
Contact :

[PROBLEME] Comment supprimer les dates des fichiers ?

Message par ThiWeb » il y a 2 mois

Bonjour,

Je cherche à supprimer massivement la date de création de pleins de fichiers dans pleins de sous-dossiers.

J'ai trouvé un logiciel appelé Attribute Changer en version 9.10b qui est censé s'en occuper.
Le problème, c'est que pour les fichiers Word (.DOC .DOCX), ces derniers gardent TOUT :

Image

Auriez-vous une solution ?

Merci à tous,

ThiWeb

Avatar du membre
LaDidi21
Modérateur
Modérateur
Messages : 3951
Enregistré le : il y a 9 ans

Message par LaDidi21 » il y a 2 mois

@ThiWeb :
Pas trop compris...
Tu veux supprimer l'attribut "Contenu créé" ?
Ce n'est pas un attribut du fichier (FileSystem) mais un attribut contenu dans le document.
Ce n'est pas, non plus, un stream associé au fichier.
-> Décryptage des liens du forum : -/ extension "ThiWeb Crypt / Decrypt"™ ou -/ Thiweb Live <-

Avatar du membre
Auteur du sujet
ThiWeb
Administrateur
Administrateur
Messages : 9221
Enregistré le : il y a 9 ans
Localisation : On earth
Contact :

Message par ThiWeb » il y a 2 mois

Bah je veux supprimer/remplacer la date de ce document et des centaines d'autres par celle d'aujourd'hui...

ThiWeb

Avatar du membre
Joselito
Habitué
Habitué
Messages : 437
Enregistré le : il y a 5 ans

Message par Joselito » il y a 2 mois

Une routine en VBA qui ouvre tous les fichiers Word les uns à la suite des autres et les sauvent sous un nom différent.
La date de création sera mise à jour ainsi que celle de la dernière modification.

Avatar du membre
LaDidi21
Modérateur
Modérateur
Messages : 3951
Enregistré le : il y a 9 ans

Message par LaDidi21 » il y a 2 mois

@ThiWeb :
Indique CLAIREMENT les attributs que tu veux supprimer/remplacer car ils ne sont pas tous "au même endroit".
Sinon, si ce sont des attributs dans le document, +1 / Joselito : VBA.
-> Décryptage des liens du forum : -/ extension "ThiWeb Crypt / Decrypt"™ ou -/ Thiweb Live <-

Avatar du membre
Auteur du sujet
ThiWeb
Administrateur
Administrateur
Messages : 9221
Enregistré le : il y a 9 ans
Localisation : On earth
Contact :

Message par ThiWeb » il y a 2 mois

@Joselito : VBA, c'est pas dans mes compétence, et une routine qui ouvre 200 fichiers dans X sous-dossiers, bonjour le bordel mais c'est une bonne idée

@LadiDi : Les 3 dates que tu vois sur le screen

ThiWeb

Avatar du membre
LaDidi21
Modérateur
Modérateur
Messages : 3951
Enregistré le : il y a 9 ans

Message par LaDidi21 » il y a 2 mois

@ThiWeb :
https://support.office.com/en-us/articl ... d4622c6b75
Donc VBA => soluce : https://docs.microsoft.com/fr-fr/visual ... ew=vs-2017

ou MetaClean :
https://www.adarsus.com/en/metaclean.html
https://www.adarsus.com/downloads/WithJ ... WinJRE.zip

Si tu ne veux pas utiliser l'application Java, tu trouveras MStool.exe sous "C:\Program Files (x86)\Adarsus\MetaClean Control\resources\" qui accepte des paramètres :

Code : Tout sélectionner

// Assembly MStool, Version 2.1.2.0
...
private static void Main(string[] args)
{
    try
    {
        if (((args.Length != 3) || (args[0].Length < 8)) || !args[2].Contains("metaclean"))
        {
            Console.WriteLine("MetaClean Tool v.2.1.2");
            Environment.Exit(0);
        }
        string path = args[0];
        string str2 = args[1];
        string str3 = null;
        string str4 = null;
        if (!File.Exists(path))
        {
            Console.WriteLine("ficheroNoExiste");
            Environment.Exit(0);
        }
        else if (IsFileReadOnly(path))
        {
            Console.WriteLine("PermisosEscritura");
            Environment.Exit(0);
        }
        else
        {
            str3 = Path.GetExtension(path).ToLower();
        }
        BorraMetadatos metadatos = new BorraMetadatos {
            operacion = str2
        };
        if (metadatos.IsFileLocked(path))
        {
            Console.WriteLine("ficheroAbierto");
            Environment.Exit(0);
        }
        else if (IsPassworded(path))
        {
            Console.WriteLine("ficheroProtegido");
            Environment.Exit(0);
        }
        if ((((str3.Contains(".doc") || str3.Contains(".dot")) || (str3.Contains(".docx") || str3.Contains(".docm"))) || str3.Contains(".dotx")) || str3.Contains(".dotm"))
        {
            str4 = metadatos.WordDocument(path);
        }
        else if ((((str3.Contains(".xls") || str3.Contains(".xlt")) || (str3.Contains(".xlsx") || str3.Contains(".xlsm"))) || (str3.Contains(".xltx") || str3.Contains(".xltm"))) || str3.Contains(".xlsb"))
        {
            str4 = metadatos.ExcelDocument(path);
        }
        Console.WriteLine(str4);
    }
    catch (Exception exception)
    {
        Console.WriteLine("Error: " + exception.Message);
    }
}
=>

Code : Tout sélectionner

MStool docSource.doc docModded.doc metaclean
________________________________________________________________________________
Pour les amateurs de Java cr@cking...
"C:\Program Files (x86)\Adarsus\MetaClean Control\MetaClean Control\properties\MyResources_en_US.properties" contient

Code : Tout sélectionner

jTextFieldCodActivacion=Paste the activation code generated after payment process here.
cadenaActivacionIncorrecta=Invalid activation code
activacionCorrecta=Activation completed successfully. Restart the program to load changes
cadenaActivacionDeOtroEquipo=The activation code entered does not match the identification code of your computer (MetaClean-ID).
msgErrorReNewTrial=Wrong activation code.
"view\EE.class" contient :

Code : Tout sélectionner

jLabelCodActivacion
jTextFieldCodActivacion
ficheroActivacionNoExiste
cadenaActivacionDeOtroEquipo
cadenaActivacionIncorrecta
activacionCorrecta
-> Décryptage des liens du forum : -/ extension "ThiWeb Crypt / Decrypt"™ ou -/ Thiweb Live <-

Répondre

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 7 invités