chcp 65001 >nul
set "var=D:\mon_répertoire_avec_accents"
echo %var%

 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objShortcut = WshShell.CreateShortcut(WScript.Arguments.Item(0))
 
If left(objShortcut.TargetPath,10) = "D:\Machin\" then objShortcut.TargetPath = "D:\Truc\" + right(objShortcut.TargetPath, len(objShortcut.TargetPath)-10)
 
objShortcut.Save

@echo off
 
setlocal EnableDelayedExpansion
chcp 65001 >nul
cd /d "%~dp0"
 
:INIT
set /a "total=0"
set "batch_path=%~dp0"
set "batch_name=%~n0"
set "icons_dir=%~1"
 
:ERROR1
if not defined icons_dir (
	CLS
	echo.
	echo.
	echo    *** ERROR : NO DIRECTORY DROPPED ONTO THE BATCH ^^! ***
	echo.
	echo    THIS PROGRAM IS INTENDED TO SCAN A FOLDER AND
	echo    ITS SUB-FOLDERS, IN WICH ALL THE SHORTCUTS 
	echo    WILL BE UPDATED TO CHANGE THEIR PATH, ACCORDING
	echo    TO THE ASSOCIATED .VBS FILE.
	echo.
	echo    PLEASE DRAG AND DROP A FOLDER ONTO THIS PROGRAM.
	echo.
	echo.
	pause>nul
	goto :ERROR1
)
 
:CHECK_FOLDER
if defined icons_dir if not exist "!icons_dir!\*" (
	:ERROR2
	CLS
	echo.
	echo.
	echo    ERROR : THE ITEM DROPPED ONTO THE BATCH IS NOT A FOLDER ^^!
	echo.
	echo.
	pause>nul
	goto :ERROR2
)
 
cd /d "!icons_dir!"
 
:COUNT
rem call :scan_lnk_in_subdirectories "!cd!" "show"
call :scan_lnk_in_subdirectories "!cd!" "count"
 
:MENU
CLS
echo.
echo.
echo   Folder dropped : !cd!
echo   Total of shortcuts found : !total!
echo.
echo   Type [u] to start the update.
echo   ^(Please edit paths in the .vbs script before^)
echo.
echo.
set "input="
set /p input=
 
if "!input!"=="u" (goto :PROCEED) else (goto :MENU)
 
:PROCEED
set /a "num=0"
call :scan_lnk_in_subdirectories "!cd!" "update"
 
:END
echo.
echo.
echo      PROGRAM HAS FINISHED.
echo.
echo      Close this window or push a key to exit.
Pause>nul
 
endlocal
exit
 
:: ---- INTERNAL FUNCTIONS ----
 
	:scan_lnk_in_subdirectories
		for /f "usebackq tokens=* delims=" %%d in (`dir /S /A-D /B "%~1\*.lnk"`) do (
			set "item=%%d"
			if "%~2"=="count" (set /a "total=!total!+1")
			if "%~2"=="show" (
				set /a "total=!total!+1"
				echo !total!. !item!
			)
			if "%~2"=="update" (
				set /a "num=!num!+1"
                                title !num!/!total!
				echo.
				echo   *** Treating : !item! ***
				echo.
				!batch_path!!batch_name!.vbs "!item!"				
			)
		)
		goto :eof

 
' Définir le chemin du dossier et le nom du fichier
Dim dossierParent, nomFichier
dossierParent = "C:\Test\"
nomFichier = "Test1.jpg"
 
' Créer l'objet Shell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(dossierParent)
Set objFile = objFolder.ParseName(nomFichier)
 
WScript.Echo "Fichier : " & objFolder.GetDetailsOf(objFile, 0)
WScript.Echo "Date prise : " & objFolder.GetDetailsOf(objFile, 161)
WScript.Echo "Appareil : " & objFolder.GetDetailsOf(objFile, 175)

 
Dim objShell, objFolder, strFileName
Set objShell = CreateObject("Shell.Application")
' Ouvre la boîte de dialogue de sélection de fichier
Set objFolder = objShell.BrowseForFolder(0, "Sélectionnez un fichier :", &H4000)
 
If Not objFolder Is Nothing Then
    strFileName = objFolder.Self.Path
    MsgBox "Vous avez sélectionné : " & strFileName
Else
    MsgBox "Aucun fichier sélectionné."
End If
 
Set objFolder = Nothing
Set objShell = Nothing

 
' Définir le chemin du dossier et le nom du fichier
Dim dossierParent, nomFichier
dossierParent = "C:\Test\"
nomFichier = "Test1.jpg"
 
' Créer l'objet Shell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(dossierParent)
Set objFile = objFolder.ParseName(nomFichier)
 
WScript.Echo "Fichier : " & objFolder.GetDetailsOf(objFile, 0)
WScript.Echo "Date prise : " & objFolder.GetDetailsOf(objFile, 161)
WScript.Echo "Appareil : " & objFolder.GetDetailsOf(objFile, 175)

 
Option Explicit
'/////////////////////////// CONSTANTES //////////////////////
 
'Répertoire pour fichiers
Const LECTEUR_C = "C:"
Const LECTEUR_D = "D:"
Const REP_FACTURES = "M:\Cabinet\Comptabilité\2025\01-Factures\"
Const REP_COTIS = "M:\Cabinet\Comptabilité\2025\02-Cotisations-charges\"
Const REP_TELECHARGT = "C:\Users\antoi\Downloads\"
'Const REP_TRACES = "M:\Cabinet\"
 
'Chemins pour requêtes
'Const REP_REQ_SCAN ="'\\Cabinet\\_SCANS\\'"
Const REP_REQ_SCAN ="'\\Cabinet\\_SCANS\\TEST\\'"
Const REP_REQ_TELECHARGT ="'\\Users\\antoi\\Downloads\\'"
Const REP_REQ_PRO ="'\\Users\\antoi\\Downloads\\Professionnel\\'"
'Const REP_FACTURES = "M:\Cabinet\Comptabilit" & chr(233) & "\"
'Dim REP_FACTURES
'REP_FACTURES = "M:\Cabinet\Comptabilit" & chr(233) & "\"
 
'/////////////////////////// VARIABLES ///////////////////////
Dim fsot
Dim fichierLog
Dim Test
 
Dim Shell
Dim oShell
Dim env
Dim objWMIService
Dim colFiles
Dim strComputer
Dim objFile
Dim requete
 
Dim chemin
Dim repScan
Dim repTelechargement
Dim repPro
Dim repCopie
Dim repCible
 
Dim errOpeFile
'FIN DECLARATION DES VARIABLES
 
 
'/////////////////////////// PROCEDURES ///////////////////////////////////////
'******************************************
' Procédure d'ouverture du fichier de logs
'******************************************
Sub OuvertureLog ()
 
	Dim repLog
	Dim nomFichierLog
	Dim monLog
 
	Const ForReading = 1, ForWriting = 2, ForAppending = 8
	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 
	Set fsot = WScript.CreateObject("Scripting.FileSystemObject")
 
	'repLog = REP_TRACES
	repLog = REP_TELECHARGT
	nomFichierLog = "Log_Fichiers_EC.log"
 
	MsgBox repLog & nomFichierLog
	Set fichierLog = fsot.OpenTextFile(repLog & nomFichierLog, ForAppending, TristateTrue)
 
	'monLog = Now & " - " & "Ouverture du fichier traces"
	'fichierLog.WriteLine(monLog)
 
End sub
 
'******************************************
' Procédure d'écriture de log
'******************************************
Sub TracesLog (messageTrace)
 
	Dim monLog
 
	monLog = Now & " - " & messageTrace
	fichierLog.WriteLine(monLog)
 
End Sub
 
 
'******************************************
' Procédure de dépalcement de fichiers
'******************************************
Sub DeplacerFichiers(collFichiers, repCible, Test)
 
Dim Proc
Proc = "DeplacerFichiers"
 
 
On Error Resume Next
Err.Clear
 
	For Each objFile in collFichiers
		'Wscript.Echo "Dossier => " & objFile.Drive & objFile.Path
		'Wscript.Echo "Taille  =>x " & objFile.FileSize & " Octets"
		'Wscript.Echo "Nom     => " & objFile.FileName & "." & objFile.Extension
 
		TracesLog(Proc & " >>> Ficher : " & objFile.FileName & "." & objFile.Extension)
		repCopie = repCible &  objFile.FileName & "." & objFile.Extension
		TracesLog(Proc & "Rep destination => " & repCopie)
 
		If Test = False Then
			errOpeFile = objFile.copy(repCopie, True)
			TracesLog(Proc & "errOpeFile => " & errOpeFile)
			if errOpeFile = 0 then
				objFile.delete
				TracesLog(Proc & "Suppression du fichier")
			Else
				TracesLog(Proc & "Erreur n° : " & Err.Number & " - " & Err.Description)
			End if
		Else
 
		End if
	Next
 
End Sub
'/////////////////////////// FONCTIONS ////////////////////////////////////////
 
 
'******************************************************************************
' *** DEBUT DU SCRIPT ***
'******************************************************************************
 
'*** Configuration des variables d'environnement
OuvertureLog()
TracesLog(" ///// DEMARRAGE DU SCRIPT ///// ")
 
Set Shell = CreateObject("wscript.Shell")
Set env = Shell.environment("Process")
strComputer = env.Item("Computername")
 
'\root\cimv2 = namespace (BDD logique) contenant des groupes de classes
'WQL = langage d'interrogation de type SQL modifié ; interroge des classes et renvoie des classes
set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
 
'FICHIERS LOYER, URSSAF
'****************************
TracesLog("DEBUT TRAITEMENT FICHERS LOYER, URSSAF")
repScan = REP_REQ_SCAN
requete = "Select * from CIM_DataFile Where Drive = 'D:' and Path = " & repScan & "and (FileName like '%SGA Loyer%' OR FileName like '%URSSAF%')"
TracesLog("Requête : " & requete)
set colFiles = objWMIService.ExecQuery (requete)
 
'Traitement en lien avec l'encodage et les accents le script est en UTF8 et window en windows 1250 (chr(233) = "é"
chemin = Replace(REP_COTIS,"é",chr(233))
TracesLog("chemin = " & chemin)
DeplacerFichiers colFiles, chemin, False
 
'FICHIERS FACTURES
'*****************
TracesLog("DEBUT TRAITEMENT FICHERS FACTURES : REPERTOIRE TELECHARGEMENT")
repScan = REP_REQ_TELECHARGT
requete = "Select * from CIM_DataFile Where Drive = 'D:' and Path = " & repScan & "and FileName like '% Facture%'"
TracesLog("Requête : " & requete)
set colFiles = objWMIService.ExecQuery (requete)
 
'Traitement en lien avec l'encodage et les accents le script est en UTF8 et window en windows 1250 (chr(233) = "é"
chemin = Replace(REP_FACTURES,"é",chr(233))
TracesLog("chemin = " & chemin)
DeplacerFichiers colFiles, chemin, False
 
TracesLog("DEBUT TRAITEMENT FICHERS FACTURES : RÉPERTOIRE _SCANS")
repScan = REP_REQ_SCAN
requete = "Select * from CIM_DataFile Where Drive = 'D:' and Path = " & repScan & "and FileName like '% Facture%'"
TracesLog("Requête : " & requete)
set colFiles = objWMIService.ExecQuery (requete)
TracesLog("chemin = " & chemin)
DeplacerFichiers colFiles, chemin, False
 
 
' Destruction des objets
Set Shell = Nothing
Set env = Nothing
 
 
'///////////////////////////////// FIN DU SCRIPT /////////////////////////////
TracesLog(" ///// FIN DU SCRIPT //////")
TracesLog(" ***")
MsgBox "Fin du script !", vbOKOnly + vbInformation, "Informations"
Set fsot = Nothing
 
Set oShell = WScript.CreateObject ("WScript.Shell")
'In VBScript, string literals are surrounded by double quotes
oShell.run """%ProgramFiles%\Notepad++\notepad++.exe ""C:\Users\antoi\Downloads\Log_Fichiers_EC.log"" "
Set oShell = Nothing
 
WScript.Quit