[VBS] File con mese giorno e ora

[pilot]

salve a tutti non sò se questo è il forum giusto cmq vorrei creare
un .vbs che legge dal sistema locale (proprio PC) il mese il giorno e l'ora e genera un files .txt vuoto , sul quale io dopo inserirò prendendole da un db access delle informazioni .

grazie per la vostra collaborazione

ciao

[oregon]

Quando dici "dopo inseriro'" intendi con un programma in VB?

Se e' cosi', perche' non crei la cartella con lo stesso programma VB?

[alka]

Originariamente inviato da pilot
salve a tutti non sò se questo è il forum giusto cmq vorrei creare un .vbs

Il forum è giusto, ma il titolo no: leggi il Regolamento così saprai come comportarti la prossima volta.

Modifico il titolo, così puoi prendere spunto.

Ciao e buona discussione!

[pilot]

chiedo venia per il titolo
oregon non ho capito cosa vuoi dirmi

allego una parte del mio script :

Dim oCN, oRS, dbFilePath
dbFilePath="c:\LANCI.MDB"
Set oCN = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.Recordset")
oCN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilePath

Set FS = CreateObject("Scripting.FilesystemObject")
Set oggFile = FS.CreateTextFile("c:\SD2\recupero.txt",True)

stdOUT.WriteLine "Caricamento PDL in corso...."
oRS.Open "SELECT * FROM Tabella", oCN, adOpenDynamic, adLockOptimistic
Do While Not oRS.Eof
oggFile.WriteLine oRS.Fields(1).Value
oRS.MoveNext
Loop
oRS.Close
oCN.Close
stdOUT.Write "Fatto"
stdOUT.WriteLine ""

invece di generare il files recupero.txt vorrei che generasse
un files di questo tipo :

SCHEDA-M_G_H_numero random.txt

dove M=mese G=giorno H=ora
numero random=numero righe contenute all'interno di Tabella.

chi mi aiuta ?

grazie e ciao

[oregon]

Non sei stato molto chiaro ...

Tu hai parlato di uno script vbs per creare il file e avevo capito che avevi un programma in VB6 (che e' diverso da uno script vbs) per lavorare sul db ...

Invece, se non ho capito male ancora, il tuo codice e' *completamente* scritto in un vbs ...

In ogni caso, il nome del file lo "componi" con

nomefile = "SCHEDA-" & Format$(now, "dd_mm_yyyy_") & CStr(nrecord)

in cui nrecord e' una variabile contenente il numero di record che ottieni (prima) con una SELECT COUNT(*) FROM Tabella

[pilot]

la seconda che hai detto

come inserisco tutto ciò che hai detto nel mio script ?

ciao

[oregon]

Che vuol dire "come lo inserisco"? VVoVe:

[pilot]

oregon non meravigliarti
ho ancora molte lacune per programmare con VBScript anche sè può
sembrare assurdo, ecco perchè ti chiedevo come inserire il tutto.

ho fatto così ma mi dà quest'errore:

stdOUT.WriteLine "Lettura N° PDL in corso...."
oRS.Open "SELECT * FROM Tabella", oCN
Do While Not oRS.Eof
oRS.MoveLast
nRec=oRS.RecordCount()
Loop
oRS.Close
oCN.Close
stdOUT.Write "Fatto"
stdOUT.WriteLine ""

C:\SD2>cscript recupero.vbs
Microsoft (R) Windows Script Host Versione 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tutti i diritti riservati.

Lettura N° PDL in corso....
C:\SD2\recupero.vbs(39, 4) Microsoft JET Database Engine: Rowset does not support fetching backward.

abbi pazienza oregon

ciao e grazie

[wallrider]

ma (nel VBS) fai tutto ciò per sapere il numero delle righe del DB?
perchè altrimenti potresti fare
(scritto usando il bottone CODE, molto utile!!! )

stdOUT.WriteLine "Lettura N° PDL in corso...." 
oCN.execute "SELECT * FROM Tabella", nrec
oCN.Close 
stdOUT.Write "Fatto" 
stdOUT.WriteLine ""

[pilot]

ciao questo è l'errore che mi dà

C:\SD2>cscript recupero.vbs

grazie cmq

ciao