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
Wendje suis aussi tomber sur ce tuto de vérification de dossier en php
https://openclassrooms.com/courses/lister-le-contenu-d-un-dossier-avec-phpstephane
, 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.