Création de sous dossier quotidien à la demande

Post a reply

Confirmation code
Enter the code exactly as it appears. All letters are case insensitive.
Smilies
:D :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :| :mrgreen: :geek: :ugeek: :arrow: :angel: :clap: :crazy: :eh: :lolno: :problem: :shh: :shifty: :sick: :silent: :think: :thumbup: :thumbdown: :salute: :wave: :wtf: :yawn: :facepalm: :bravo: :dance: :beard: :morebeard: :xmas: :HeHe: :trollface: :cookie: :rainbow: :monkeysee: :monkeysay: :happybday: :headwall: :offtopic: :superhappy: :terms: :beer:
View more smilies

BBCode is ON
[img] is OFF
[flash] is OFF
[url] is ON
Smilies are ON

Topic review
   

Expand view Topic review: Création de sous dossier quotidien à la demande

Création de sous dossier quotidien à la demande

by Paneb » 15 Feb 2017, 05:32

Bonjour !
Dans la continuité de ce projet : https://www.autohotkey.com/boards/viewt ... 56&t=26504 , je me suis maintenant mis en place un script qui permet toujours de créer un dossier quotidien, mais là selon un label spécifique et où le nom est paramétrable, ainsi que l'emplacement.
Ce script permet de créer un dossier au format : 2017.01.03-Test ; où l'année, le mois et le jour est automatiquement celui du système. Le programme est capable de récupérer l'emplacement actif pour ne créer le dossier que là où c'est nécessaire : il faut cliquer dans la barre du chemin d'accès pour être certain que la fenêtre de création considéré est la bonne. Un rappel du chemin pris en compte est affiché lors de l'affichage de la pop-up de choix du nom de dossier. Les caractères interdits par l'OS sont indiqués. Pour lancer la création d'un dossier, le raccourci à utiliser est Ctrl+Q.
Tous vos retours m'intéresse :

Code: Select all

#NoEnv
#Warn
#SingleInstance Force
#Persistent
SetWorkingDir %A_ScriptDir%
Menu, Tray, Nostandard
;Pour afficher ce qu'est le programme
Menu, Tray, Tip, Programme de création de dossier quotidien à la demande

StringTrimRight, Name, A_ScriptName, 3
;On vérifie si un raccourci est déjà présent dans le dossier startup de l'utilisateur. Si non (premier lancement) on le créé.
IfNotExist, %A_Startup%\%Name%lnk
	{
		
		FileCreateShortcut, %A_ScriptFullPath%, %A_Startup%\%Name%lnk
	}

^Q::
monLabel:
	caractereInterdit = 0
	 ID := WinExist("A")
	WinGetClass, Class, ahk_id %ID%
	ControlGetText,ePath, Edit1, ahk_id %ID%
	if epath=
		epath=%A_desktop%
	
	FormatTime, monJour, %A_Now%, dd
	FormatTime, monMois, %A_Now%, MM
	FormatTime, monAnnee, %A_Now%, yyyy
	
	complet1 = %monAnnee%.%monMois%.%monJour%-

	InputBox, textePerso, Ajout de texte,Emplacement : %epath%
	
		complet = %complet1%%textePerso%

	if ErrorLevel
		{
			
			Return
		}

	Needle = <		
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = >
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = :		
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = ""		
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = /		
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = \	
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = |	
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	Needle = ?	
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
	
	Needle = *	
	IfInString, complet, %Needle%
	{
		MsgBox, Erreur dans le nom de dossier !
		GoTo, monLabel
	}
									
	
	
	
	FileCreateDir,%epath%/%complet%
	;MsgBox, %complet%

	Return
:dance:

Top