Page 1 sur 1

Incrémentation avec le manager

Posté : mar. 3 avr. 2018 10:41
par Fyf
Salut, je voulais savoir si il était possible d'avoir dans le manager, dans le menu Image, un lien incrémentation histoire de ne pas avoir a recataloguer tous le nas (3000 fichiers pour moi). car selon le fichier comme beaucoup de personne je les virent ou je les gardent.

stef

Re: Incrémentation avec le manager

Posté : mar. 3 avr. 2018 11:58
par olixelle
Hello

et il ferait quoi ce lien incrémentation ? indexer que les nouveaux fichiers ? Le problème c'est que actuellement, il doit tout parcourir pour les identifier

Re: Incrémentation avec le manager

Posté : mar. 3 avr. 2018 14:47
par Fyf
oui je comprend et c'est normal, l'indexation tourne t'elle en tache de fond si je ferme la fenêtre du manager?. si oui message complètement obsolète

stef

Re: Incrémentation avec le manager

Posté : mar. 3 avr. 2018 15:36
par olixelle
non elle ne tourne pas en tache de fond, mais c'est sur la road map

par contre ton truc est pas obsolète non plus, il faudra que je regarde si je peux me baser usr la date de modification des dossiers pour savoir si je dois les vérifier ou pas

Re: Incrémentation avec le manager

Posté : mer. 4 avr. 2018 11:00
par Fyf
Salut, j'ai un script qui me sert a vérifier l’existence de nouveaux fichiers dans un dossier ou des dossiers et celui ci affiche un popup pour le signaler, peu être que tu peu t'en inspirer pour vérifier les dossiers et permettre l'indexation de ces dossiers uniquement?

ce code est du VBS a regarder pour l’inspiration ;)

Code : Tout sélectionner

Const FAXDIR = "\\serveur\nom_dossiers\films\"
Const MSGTITLE = "Nouveau films"
Const MSGVIEW = "Voulez-vous indexer le ou les films "
Const AUTORUNREGKEY = "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\films"

Dim InputFileFullName
Dim FSO
Dim InputFile
Dim InputFileContent
Dim InputDir
Dim CurrentDateTime
Dim CurrentName
Dim Shell
Dim Answer

Set Shell = WScript.CreateObject("WScript.Shell")
Shell.RegWrite AUTORUNREGKEY, WScript.ScriptFullName, "REG_SZ"

InputFileFullName = WScript.ScriptFullName & ".txt"
Set FSO = CreateObject("scripting.filesystemobject")

If Not FSO.FolderExists(FAXDIR) then
   FSO.CreateFolder(FAXDIR)
End If

While True

   InputFileContent = ""
   Set InputFile = FSO.opentextfile(InputFileFullName,1,True)
   While Not InputFile.AtEndOfStream
      InputFileContent = InputFileContent & InputFile.ReadLine
   Wend
   InputFile.Close

   Set InputFile = FSO.opentextfile(InputFileFullName,8,True)
   Set InputDir = FSO.GetFolder(FAXDIR)

   For Each CurrentFile In InputDir.files

      CurrentDateTime = currentfile.DateCreated
      CurrentName = currentfile.Name
   
      If InStr(InputFileContent,CurrentName & vbTab & CurrentDateTime) Then
   
      Else
      
         Answer = MsgBox (CurrentName & vbCrLf & CurrentDateTime & vbCrLf & vbCrLf & MSGVIEW,4 + 64, MSGTITLE)
         If Answer = 6 Then
            Shell.Run """" & currentfile.Path & """"
         End If
         
         InputFile.WriteLine(CurrentName & vbTab & CurrentDateTime)
      
      End If

   Next

   InputFile.Close
   
   WScript.Sleep 10000
      
Wend

je suis aussi tomber sur ce tuto de vérification de dossier en php https://openclassrooms.com/courses/lister-le-contenu-d-un-dossier-avec-php
stephane