Visual Basic 6 - ho un problemino, rispondete!!!!

Forum - Visual Basic 6 - ho un problemino, rispondete!!!!

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Ciao a tutit sto facendo un programmino che attiva o disattiva l'ibernazione. Ecco il codice:

Codice sorgente - presumibilmente VB.NET

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-|

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 15:50
Venerdì, 05/09/2008

utilizza la funzione time:

Codice sorgente - presumibilmente Visual Basic 6

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

P.S.: scrivi titoli più significativi.

Ultima modifica effettuata da Overflow il 05/09/2008 alle 15:51

()
Newbie

Messaggi:
Iscritto:

Postato alle 15:51
Venerdì, 05/09/2008

Testo quotato

Postato originariamente da Overflow:

utilizza la funzione time:

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

P.S.: scrivi titoli più significativi.

ok scusa!

()
Newbie

Messaggi:
Iscritto:

Postato alle 16:02
Venerdì, 05/09/2008

e per la data?

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 17:28
Venerdì, 05/09/2008

per la data una Date
se vuoi la data e l' ora una Now

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:12
Venerdì, 05/09/2008

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...

()
Newbie

Messaggi:
Iscritto:

Postato alle 11:35
Sabato, 06/09/2008

Testo quotato

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: