sempice prog cambio data

« Older   Newer »
  Share  
paolo the best(ia)
view post Posted on 10/4/2009, 12:06




ciao a tutti,
θ da poco che studio l'AutoIt, e mi θ venuta un' idea...

studio informatica, e il prof dice sempre "Non modificate i file dopo la scadenza, tanto io guardo la data di creazione e modifica..." ebbene ho creato un piccolo ed inutile prog per chiunque avesse, come me, questo problema (purtroppo θ un pς lungo... non sapevo in che altro modo fare, rendendolo semplice)
SPOILER (click to view)
CODICE
;Programma che cambia l'orario di un file
#include <process.au3>
$percorso=InputBox("File", "Inserisci il precorso del file")
if Not FileExists($percorso) Then
       msgbox(48+0, "Errore", "Il file indicato non esiste...")
       Exit
endIf
msgbox(48+0, "Info", "Le informazioni successive dovranno essere inserite sotto - forma di numeri")
msgbox(0, "Fase 1", "Modifica del parametro 'Data Creazione'")
$anno=InputBox("Anno", "Inserisci l'anno (YYYY)")
$mese=inputbox("Mese", "Inserisci il mese (MM)")
$giorno=InputBox("Giorno", "Inserisci il giorno (DD)")
$ora=inputbox("Ore", "Inserisci l'ora (HH)")
$min=InputBox("Minuti", "Inserisci i minuti (MM)")
$sec=inputbox("Secondi", "Inserisci i secondi (SS)")
$tempo_c=$anno & $mese & $giorno & $ora & $min & $sec
msgbox(0, "Fase 2", "Modifica del parametro 'Modificato'")
$anno_1=InputBox("Anno", "Inserisci l'anno (YYYY)")
$mese_1=inputbox("Mese", "Inserisci il mese (MM)")
$giorno_1=InputBox("Giorno", "Inserisci il giorno (DD)")
$ora_1=inputbox("Ore", "Inserisci l'ora (HH)")
$min_1=InputBox("Minuti", "Inserisci i minuti (MM)")
$sec_1=inputbox("Secondi", "Inserisci i secondi (SS)")
$tempo_m=$anno_1 & $mese_1 & $giorno_1 & $ora_1 & $min_1 & $sec_1
FileSetTime("" & $percorso, "" & $tempo_c, 1)
FileSetTime("" & $percorso, "" & $tempo_m, 0)
msgbox(64, "Fine", "Operazione effettuata")
MsgBox(64, "Credits", "Edit by paolo the best(ia)")

spero possa essere utile a qualcuno...

ciao :P
 
Top
greywolf92
view post Posted on 10/4/2009, 12:52




Bravo ;) potrebbe anche essere utile a qualcuno
 
Top
† bird92 †
view post Posted on 11/4/2009, 17:49




molto molto molto utile... e non solo per i prof XD perς preferisco farlo a mano...
 
Top
your_shadow
view post Posted on 13/4/2009, 15:53




nessuna gestione degli errori...
 
Top
† bird92 †
view post Posted on 13/4/2009, 15:56




giΰ
 
Top
5 replies since 10/4/2009, 12:06   84 views
  Share