Oppure

Loading
05/09/08 13:27
Ciao a tutit sto facendo un programmino che attiva o disattiva l'ibernazione. Ecco il codice: 
private sub Command1_click()
set objshell = CreateObject ("Wscript.shell")
set shellexec = objshell.exec ("powercfg -H on")
MsgBox "L'ibernazione è stata attivata!"
dim strDesktop
strDesktop = objshell.SpecialFolder ("Desktop")
set create = CreateObject ("Scripting.FileSystemObject")
dim findlogfile
findlogfile = create.fileExists (strDesktop+ "/logfile.txt")
if  findlogfile = false then
create.CreateTextFile (strDesktop +"/logfile.txt")
end if
open (strDesktop+"/logfile.txt") for append as #1
print #1, "l'ibernazione è stata attivata!"
close #1
end sub

Il problema è che nel logfile vorrei mettere l'ora, cioè che venga scritto così:
"L'ibernazione è stata attivata con successo alle"
+ l'ora.
come faccio?
grazie a tutti!8-|
05/09/08 13:50
Overflow
utilizza la funzione time: 

Print #1,"L'ibernazione è stata attivata: " + time


P.S.: scrivi titoli più significativi.
Ultima modifica effettuata da Overflow 05/09/08 13:51
aaa
05/09/08 13:51
Postato originariamente da Overflow:

utilizza la funzione time:

Print #1,"L'ibernazione è stata attivata: " + time

P.S.: scrivi titoli più significativi.


ok scusa!:rotfl::D;)
05/09/08 14:02
e per la data?
05/09/08 15:28
antometal
per la data una Date
se vuoi la data e l' ora una Now
aaa
05/09/08 19:12
GrG
io direi di non essere così impazienti....:alert:

Cmq come detto da antometal devi usare:

day(date) = giorno
month(date) = mese
year(date) = anno
second(time) = secondi
minute(time) = minuti
hour(time) = ore

spero che qst dati ti bastino...
aaa
06/09/08 9:35
Postato originariamente da GrG:

io direi di non essere così impazienti....:alert:

Cmq come detto da antometal devi usare:

day(date) = giorno
month(date) = mese
year(date) = anno
second(time) = secondi
minute(time) = minuti
hour(time) = ore

spero che qst dati ti bastino...

si grazie!:rotfl::D