Dans mon script j'ai un souci d'édition de fichiers.txt, je ne comprend pas ce qui cloche car certains fichiers se créés bien et d'autres ne son pas créés.
Je précise que le problème se fait uniquement quand le script est exécuté sur une partition de serveur. Je pensais au début à un problème de droit en écriture car le script fonctionne bien sur le disque local de mon pc, mais le fait est que certains fichiers arrivent quand même à ce créer et d'autres non...
Pour info le fichier "nni.txt" est bien généré.
Le fichier qui pose problème est le fichier "message.txt"
Peut être que le script cloche quelque part...
Si un(e) de vous a une idée, je suis preneur..
Merci d'avance...
voici le script
#AutoIt3Wrapper_Icon=icone.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <date.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$sDate = _NowDate ( )
$sTime = _NowTime ( )
DirCreate(@ScriptDir &"\archives\")
#Region ### START Koda GUI section ### Form=C:\Users\jeanmimi\Desktop\liveup\admin2.kxf
Global $Form1 = GUICreate("Live-Up Administrateur", 528, 597, 224, 232)
Global $MenuItem2 = GUICtrlCreateMenu("&Menu")
Global $MenuItem4 = GUICtrlCreateMenuItem("Tutoriel", $MenuItem2)
Global $MenuItem3 = GUICtrlCreateMenuItem("Archives LiveUp", $MenuItem2)
GUISetBkColor(0xFFFFFF)
Global $Group1 = GUICtrlCreateGroup(" Saisir votre message ", 16, 100, 377, 313)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateEdit("", 40, 140, 329, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Envoyer le message", 104, 352, 211, 41)
; Listing dossiers
Global $aScriptDir = _FileListToArray(@ScriptDir, "*", $FLTA_FOLDERS, 0)
Global $sFilePath = @ScriptDir & "\nni.txt"
;export du noms des dossiers nni dans fichier nni.txt
_FileWriteFromArray($sFilePath, $aScriptDir, 1)
Global $liste = GUICtrlCreateEdit("", 408, 140, 97, 257, $ES_AUTOVSCROLL + $WS_VSCROLL)
Global $Read1 = FileRead (@ScriptDir & "\nni.txt")
GUICtrlSetData($Liste, $Read1, 1)
Global $Group2 = GUICtrlCreateGroup(" Contacts ", 400, 100, 113, 313)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Pic1 = GUICtrlCreatePic("liveup.JPG", 104, 16, 329, 79)
Global $Pic2 = GUICtrlCreatePic("vague.JPG", 0, 416, 527, 160)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Button1
Valider()
Case $msg = $MenuItem4
Tuto()
Case $msg = $MenuItem3
Rapport()
EndSelect
WEnd
Func Valider()
$valideur = @UserName
$ecri2 = guictrlread($Input1)
Local $Source = @ScriptDir & "\message.txt"
if $ecri2 <> "" then
_FileCreate($Source)
Local $hFileOpen = FileOpen($Source, $FO_READ)
FileWrite($Source,$ecri2)
FileClose($Source)
MsgBox(0, "test ok", "Message édité avec succès ! ", 3)
copie()
Exit
;suite script si zone saisie vide
Else
MsgBox(0, "Attention", " Vous devez remplir la partie " & '"' & "Saisir votre message" & '"' & " avant de valider" )
EndIf
EndFunc
Func copie()
$sDate = _NowDate ( )
$sTime = _NowTime ( )
$DateDeMonRDV2 = $sDate
$formatEN2 = StringRegExpReplace($DateDeMonRDV2, '(\d{2})/(\d{2})/(\d{4})', "$3/$2/$1")
$sNewDatej2 = _DateAdd('d', 0, $formatEN2)
$formatFRj2 = StringRegExpReplace($sNewDatej2, '(\d{4})/(\d{2})/(\d{2})', "$3/$2/$1")
$ecrij2 = StringReplace($formatFRj2, "/", ".")
$newtime = StringReplace($sTime, ":", "_")
Local $archives = @ScriptDir & "\archives\" & $ecrij2 & "-" & $newtime & ".txt"
Local $Source = @ScriptDir & "\message.txt"
Local $SourceDel = @ScriptDir & "\archives\message.txt"
Local $FileList = _FileListToArray(@ScriptDir, "*", $FLTA_FOLDERS, 1)
For $i = 1 to $FileList[0]
FileCopy($Source, $FileList[$i], $FC_OVERWRITE)
FileCopy($Source, @ScriptDir & "\archives\" & $sDate & $sTime & ".txt", BitOR($FO_ANSI, $FO_APPEND, $FO_CREATEPATH))
FileCopy($Source, $archives)
Next
FileDelete($Source)
FileDelete($SourceDel)
EndFunc
Func Tuto()
ShellExecute(@scriptdir & "\tutoriel_LiveUp.pdf")
EndFunc
Func Rapport()
ShellExecute(@scriptdir & "\archives")
EndFunc