File-Dir

#cs ----------------------------------------------------------------------------

Version: 1.0
Author: The JokerS

Script Function:
Funzioni su file e dir
#ce ----------------------------------------------------------------------------

; Script Start

#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#Include <guiedit.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("File-Dir .:The Jokers:.", 615, 238, 192, 124)
$per1 = GUICtrlCreateInput("C:", 32, 8, 121, 21)
$per2 = GUICtrlCreateInput("C:", 216, 8, 121, 21)
$move = GUICtrlCreateButton("Muovi", 32, 40, 75, 25)
$del = GUICtrlCreateButton("Elimina", 128, 40, 75, 25)
$cdir = GUICtrlCreateButton("Crea Dir", 224, 40, 75, 25)
$log = GUICtrlCreateEdit("", 368, 0, 241, 217)
GUICtrlSetData(-1, "")
$cest = GUICtrlCreateButton("Cestina", 32, 72, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $move
$le1 = GUICtrlRead($per1)
$le2 = GUICtrlRead($per2)
if $le1 = "" then $le1 = InputBox("Errore 0x01","Inserisci Percorso, Percorso Non Inserito")
if $le2 = "" Then $le2 = InputBox("Errore 0x01.5","Inserisci Percorso, Percorso Non Inserito")
if FileExists($le1) then $le1 = InputBox("Errore 0x02","Inserisci Percorso,Percorso Errato")
if FileExists($le2) = 0 then $le2 = InputBox("Errore 0x02.5","Inserisci Percorso,Percorso Errato")
$cont = FileMove($le1,$le2)
if $cont = 0 then MsgBox(16,"Errore 0x03","Il File Non è Stato Spostato")
if $cont = 1 then
MsgBox(0,"Sucesso!","Il File è Stato Spostato")
_GUICtrlEdit_AppendText($log,"Il File"&$le1&" è stato spostato in "&$le2&@CRLF)
EndIf
case $del
$le1 = GUICtrlRead($per1)
if $le1 = "" then $le1 = InputBox("Errore 0x01","Inserisci Percorso, Percorso Non Inserito")
if FileExists($le1) then $le1 = InputBox("Errore 0x02","Inserisci Percorso,Percorso Errato")
$cont = FileDelete($le1)
if $cont = 0 then MsgBox(16,"Errore 0x04","Il File Non è Stato Eliminato")
if $cont = 1 then
MsgBox(0,"Sucesso!","Il File è Stato Eliminato")
_GUICtrlEdit_AppendText($log,"Il File"&$le1&" è stato eliminato"&@CRLF)
EndIf
case $cdir
$le1 = GUICtrlRead($per1)
if $le1 = "" then $le1 = InputBox("Errore 0x01","Inserisci Percorso, Percorso Non Inserito")
if FileExists($le1) then $le1 = InputBox("Errore 0x02","Inserisci Percorso,Percorso Errato")
$cont = DirCreate($le1)
if $cont = 0 then MsgBox(16,"Errore 0x05","La Dir non è stata creata")
if $cont = 1 then
MsgBox(0,"Sucesso!","La Dir è Stata creata")
_GUICtrlEdit_AppendText($log,"LA dir "&$le1&" è stata creata"&@CRLF)
EndIf
case $cest
$le1 = GUICtrlRead($per1)
if $le1 = "" then $le1 = InputBox("Errore 0x01","Inserisci Percorso, Percorso Non Inserito")
if FileExists($le1) then $le1 = InputBox("Errore 0x02","Inserisci Percorso,Percorso Errato")
$cont = FileRecycle($le1)
if $cont = 0 then MsgBox(16,"Errore 0x06","Il file non è stato cestinato")
if $cont = 1 then
MsgBox(0,"Sucesso!","Il File è Stato cestinato")
_GUICtrlEdit_AppendText($log,"Il File "&$le1&" è stato cestinato"&@CRLF)
EndIf
EndSwitch
WEnd

Soltanto Dio lo Sa XD
[sono ateista u.u]