mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura di un file...

Salve,
sto cercando di leggere dei dati da un file:
'leggo riga per riga con
    Line Input #1, RigaLetta$
    Dim str() As String
'poi la separo in parole con
    str = Split(RigaLetta, ",")
    PrimoToken$ = str(0)
    SecondoToken$ = str(1)
    etc..
Il metodo Split, a quanto ho capito, non prevede che le parole siano scritte
fra doppi apici, quindi di una riga tipo:
    "primo","secondo","etc"
mi restituisce le parole con gli apici.
C'č un metodo piů efficiente del togliere il primo e l'ultimo carattere da
ogni parola, per avere le parole scritte senza apici?
E' vero che il formato standard dei file di testo prevede che le stringhe
siano racchiuse da doppi apici?
Grazie.
Ci.

siano racchiuse da doppi apici?
Standard di che ?
Ciao
Aldo

 ogni parola, per avere le parole scritte senza apici?
Il metodo che io ti consiglio è quello di
usare comunque lo split ma in quest'altro modo
str=split(RigaLetta,""",""")
il separatore in questo caso è '","' così togli da tutte le parole gli
apici...
... l'unica cosa che dovrai fare per PrimoToken è :
    PrimoToken=Mid(PrimoToken,2)
mentre per UltimoToken :
    UltimoToken=Left(UltimoToken,Len(UltimoToken)-1)
Semplice e sono solo 3 righe di istruzione :)
Ciao e buon lavoro.
Diego

 ha scritto nel messaggio
news:ypgj6.14854$Uj1.2...@twister2.tin.it...


Naturalmente devi conoscere la struttura.
Ehm, io propenderei per la soluzione di Diego ... ;-)
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] quale scegliere: listbox, grid, richtext

Devo fare un'applicazione che mostra un insieme di righe formattate e
colorate in modo diverso in base al "tipo" di riga, inoltre deve essere
possibile scorrre tali righe evidenziando la riga selezionata (eventualmente
mostrando sulla destra il numero di riga), e permettere l'iserimento la
cancellazione e la modifica di ciascuna riga.
Ho cercato fra i contreolli VB ma:
1) la listbox va bene ma non permette di colorare le singole righe in modo
diverso in base a detrminate proprietà.
2) la grid di non permette di formattare ciascuna riga in modo diverso.
3) il Richtext non permette di evidenziare la riga corrente come il listbox
e comunque non mostra il numero di riga corrente a fianco della riga.
Avete suggerimenti, o conoscete controlli free più evoluti di quelli
presenti in VB ?
Penso che il Rictextbox con la possibilità di evidenziare la riga e mostrare
il numero di riga corrente sarebbe la scelta migliore...
Grazie
Marco

 presenti in VB ?
se conosci il C puoi usare l'ormai famoso scintilla (c'è anche un
piccolissimo esempio in vb)
http://www.scintilla.org/
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: DoEvents

Ciao a tutti! Qualcuno puņ aiutarmi a capire quando si usa DoEvents e perchč
? L'help in linea non č molto chiaro in proposito.
Grazie!

l'elaborazione. Rallenta ma migliora visivamente il programma!
Aggiungerei anche che e' utile per intercettare eventuali richieste da parte
dell' utente circa l' interruzione di un task di lunga durata.
ciao, hal

 Grazie!
metti su un form un command, un label e 3 option, di cui il primo con
value=true.
incolla questo codice e guarda cosa succede con le varie opzioni a label
e barra del titolo.
ciao, a.
Option Explicit
Private Sub Command1_Click()
    Dim j As Integer, time1
    time1 = Timer
    For j = 0 To 32000
        Label1 = CStr(j)
        If Option2 Then DoEvents
        If Option3 And (j Mod 1000 = 0) Then DoEvents
    Next
    Caption = Format(Timer - time1, "###,##0.00")
End Sub

 e perchè ? L'help in linea non è molto chiaro in proposito.
con DoEvents il tuo programma rimane in pausa finchè non ha svolto tutti 
i "compitini" assegnati dal sistema operativo (ridisegno di finestre, 
risposta ai click o ai tasti premuti, ecc)

Newsgroup: it.comp.lang.visual-basic
Titolo: Query errata

 
          Salve a tutti
Quando il programma esegue la query:
select * from pinco where pallino = 1435,55
mi da un errore di sintassi nella query (virgola)
Premetto che la propriatà del campo pallino è numerico con
precisione doppia.
Dove sbaglio??
Help Me
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

           Salve a tutti
prova a metterci il "puntino"
1.2
invece di 1,2
-- 
------------------------------------------------
Sito web: 
http://www.martek.it

Dove sbaglio??
Semplicemente devi sostituire la virgola con il punto
=======================================================================
Se mi vuoi scrivere togli le maiuscole
cteniza...@hotmail.com
=======================================================================

Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini nel dbase e uso del controllo picture

ri-posto il messaggio sperando che qulcuno lo legga....
Tempo fa lessi su questo news come senza usare datacontrol e quindi
usufruire della proprietą della picturebox datasource e datafields
caricare un immagine registrata in un dbase nella picturebox.....
per esempio
dim dd as recordset
set dd = db.openrecordset("select imm from immagini where id = 1")
picture1.image  = loadpicture(dd!imm)  >>>questa č la riga che mi serve
.
..
Grazie a quanti risponderanno
Antonello


Newsgroup: it.comp.lang.visual-basic
Titolo: Settare la stampante

Come faccio a stampare caratteri diversi dal Courier? Con
Printer.FontName non funziona (come del resto non funziona neanche
Printer.FontSize e tutti gli altri Printer.XXXXX. Funziona solo
Printer.Print). Grazie
--
Nicco  -  TNT RULES!
http://space.tin.it/musica/nventuro


Nell'ordine prova con
Printer.Font.Name
 = "*****" al posto di Printer.FontName
secondo il manuale dovrebbero essere supportate entrambe le forme, ma ho
avuto dei problemi con il vecchio metodo di scrittura
Installa SP3. Pare che risolva i problemi legati alla stampa
Controlla se la tua stampante supporta altri font oltre al Courier.
Ciao Bruno

La cura "universale" per i problemi di stampa è sempre quella: installa il
service pack 3.
Mauro Mariz
3nto

Newsgroup: it.comp.lang.visual-basic
Titolo: ComboBOX e completamento automatico

Ciao. Uso i controlli Sheridan ComboBox.
Qualcuno sa come ordinare la lista (multicolonna) e implementare la
funzionalita' di completamento automatico che e' presente per default in
Access.
Avrei bisogno di emulare la stessa cosa in VB.
Grazie!
--
Marco Degl'Innocenti

 Access.
prova cosě (l'ho buttato giů in 1 minuto controlla bene se ci sono errori)
private sub MiaCombo_Change()
    AutoComplete MiaCombo, "Nome"
end sub
privaste sub AutoComplete(cmb as ComboBox,Campo as string)
    dim rs as new AdoDb.Recordset
    dim n as integer
    n=len(cmb.text)
    conn.Open fnStringaDiConnessione
    rs.Open "Select " & Campo & " as tmp FROM " & Tabella & " Where Campo
like '%" & cmb.text & "%'", conn, adOpenStatic
    if not rs.eof then
        cmb.text=rs!tmp
        cmb.selstart=n
        cmb.sellength=len(cmb.text)
    endif
    rs.close
end sub
CIAO

 CIAO
Così a occhio e croce, perche continui a controllare le tabelle visto che i
campi dovresti già averli caricati come Item nel Combo stesso?
Io ho fatto + o - la stessa procedura controllando però gli Item e non il
recordset.
Ciao
    Sharkman

 campi dovresti già averli caricati come Item nel Combo stesso?
perchè è più veloce che controllare i campi nella combo :-)
CIAO

CIAO
--------------------------------
Inviato via 
http://usenet.iol.it
 

 ha scritto nel messaggio
news:R08L8.3365$86.6...@twister1.libero.it...


 ha scritto nel messaggio
news:vFnL8.6348$86.1...@twister1.libero.it...

Grazie per il chiarimento
Ciao
    Sharkman
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ADO, DAO o cosa?

Ciao a tutti.
Sto tentando (nei limiti delle mie conoscenze in materia) di realizzare
un'applicazione in VB6 che, collegandosi tramite ODBC ad un database SQL, me
ne permetta la gestione completa: visualizzazione, modifica, inserimento e
cancellazione. Ho gia' realizzato qualche cosa collegando in vario modo (ho
cercato qua e la' delle info su MSDN) dei controlli Adodc, DataGrid e
DataCombo nonche' delle Label e dei tasti Command per completare ed eseguire
delle Query SQL.
Per quanto riguarda la perte della visualizzazione (e, se vogliamo, piu' o
meno anche quella della modifica) funziona tutto quasi bene.
Invece ho tentato di fare il tasto per la cancellazione, sempre costruendo
delle Query, ma sorge un problema quando devo dare la conferma per
cancellare: viene fuori una finestra intitolata adodc1 che mi avverte che:
"L'operazione richiesta dall'applicazione non è consentita se l'oggetto è
chiuso" e cliccando poi su Debug mi si posiziona sull'istruzione
Adodc1.Refresh. In compenso il record sembra che lo abbia cancellato lo
stesso.
Se invece tolgo l'istruzione Adodc1.Refresh, l'errore non me lo da' piu', in
compenso non mi cancella il record che ho selezionato.
Qualcuno mi sa dire come mai?
In generale, mi sono spinto nella direzione giusta (utilizzando ADO) per
cominciare a programmare la mia applicazione?
Dove poteri trovare degli esempi di accesso e gestione di database SQL con
delle spiegazioni chiare (possibilmente in italiano) oltre che su MSDN?
Grazie 1000
--
Saluti
Michele
mic...@iol.it
oppure
mc3...@mclink.it

Innanzi tutto che Database SQL usi ?.
ADO è la strada giusta anche se c'è molto da incavolarsi dato che è alle
prime versioni e non tutto ( ma proprio non tutto) funziona come dovrebbe,
ciè come descritto dalla guida.
L'errore lo da' se da qualche parte nel codice viene chiuso o impostato a
nothing l'oggetto.
Fai attenzione agli eventi generati dallo stesso recordset o al limite
all'uso che fai dei command.
Ciao,
Riccardo Guirrini
Web :          
http://space.tin.it/computer/rguirrin
E-Mail:         
del...@tin.it

Adodc1.Refresh. In compenso il record sembra che lo abbia cancellato lo
A mio parere ti conviene chiudere il recordset e riaprirlo testando se
lo stato e' a open, a quel punto non ti serve neanche il refresh.
--------------------------------------------------------
Paolo Hölzl
Metis Informatica s.a.s technical manager (Ferrara)
----------------------------------------------------------
ATTENTION!, antispam 
For reply, substitute xxx.xx with 
tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: chiarimento query

Ho un problema sul quale mi arrovello da un po di giorni in access2000
gestisco una tabella con:
        cliente    articolo   data vendita     prezzo
            1        a        19/04/2002       2
            1        a        16/04/2002       4
            1        a        10/04/2002       5
            1        b        19/04/2002       7
            1        b        09/04/2002       8
            1        b        03/04/2002       9
    Cerco una query che mi faccia vedere per il cliente specificato
    gli articoli venduti, la data dell'ultima vendita e il prezzo 
    se scelgo cliente 1 devo vedere
        cliente    articolo   data vendita     prezzo
            1        a        19/04/2002       2
            1        b        19/04/2002       7
 
    Mi hanno suggerito la query
SELECT First(Tabella.Cliente) AS PrimoDiCliente, Tabella.Articolo,
First(Tabella.DataVendita)
AS PrimoDiDataVendita, First(Tabella.Prezzo) AS PrimoDiPrezzo
FROM Tabella GROUP BY Tabella.Articolo;
Ma mi da qualche problema.
Vedo, si una sola ricorrenza dell'articolo,
 ma in alcuni casi invece di avere l'utima condizione, me ne mostra una
a caso.
Per conoscere meglio la sintassi, invede di vedere la data max,
preferirei vedere la max inferiore ad una data indicata, ( es. l'ultima
vendita dell'anno scorso)
 Ringrazio chi mi chiarisce le idee
                                                Ciao Enzo
P.S.
Accetto la tirata di orecchie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


prova cosi:
SELECT T.cliente, T.articolo, Max(T.data_vendita) AS MaxDidata FROM Tabella
T
GROUP BY T.cliente, T.articolo;
purtroppo il prezzo non si puo includere per trovarlo dovrai usare un'altra
query o dlookup
ciao Valerio

Newsgroup: it.comp.lang.visual-basic
Titolo: Save image

Dear all experts,
I'm now trying to write vb codes to capture the image from the scanner and
store it into the file with bmp format.  It has no problem on scanning and
storing, but when I open the stored image using picture box or image box, it
appears an error message "invalid picture".  But the image file can open
with the MS Paint or Imaging.  The related code are as follow:
Private Sub Command1_Click()
ImgScan1.StartScan
End Sub
Private Sub Form_Load()
FileSystem.ChDir ("C:\My Documents\Collector")
Image1.Picture = LoadPicture("temp.bmp")
End Sub
Private Sub ImgScan1_ScanDone()
ImgEdit1.SaveAs "temp.bmp"
Image1.Picture = LoadPicture("temp.bmp")
End Sub
Where ImgScan1 and ImgEdit1 are the components of the Kodak Image Control
Lib.
What's wrong with the code?  And how can I load the scanned pictures with
the command "LoadPicture()"?

 Image1.Picture = LoadPicture("C:\My Documents\Collector\temp.bmp")

> Image1.Picture = LoadPicture("C:\My Documents\Collector\temp.bmp")
No, it's wrong. You can LoadPicture just with then filename if then current
directory contains it.
Now, then problem may be the method (and then graphic format) to store the
temp.bmp
PS: This is an ITalian NewsGroup, IT does not mean "Information Technology"

Lupo ha scritto:
I'm sorry, read "the" for various "then"...
Newsgroup: it.comp.lang.visual-basic
Titolo: vs200? powerpack

non ho ancora capito se vs2005 ha un foldertreeview nativo.
comunque ricordavo di averne provato uno da un powerpack, oggi l'ho
ritrovato,era per net (2003) ma direi funzioni. c'e' anche un fileviewer e
altre cose.
i link sono cambiati, pagine e siti che non esistono piu'. cmq:
- guida:
http://msdn2.microsoft.com/en-us/library/aa289491(vs.71).aspx
=
http://tinyurl.com/ywjpgc
- file:
http://www.gotdotnet.com/workspaces/workspace.aspx?id=167542e0-e435-4585-ae4f-c111fe60ed58
=
http://tinyurl.com/8dgcd
in basso -> alternate download link
hth, ciao, a.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 non ho ancora capito se vs2005 ha un foldertreeview nativo.
Se vuoi qualcosa molto simile a quello di Esplora Risorse, puoi provare 
a guardare questo:
http://www.codeproject.com/vb/net/VbNetExpTree.asp
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

Newsgroup: it.comp.lang.visual-basic
Titolo: MSHFlexGrid1: ecchecc...

Scusate ma sto usando la MSHFlexGrid (che chiamo GrigliaMain) per 
permettere l'imput di una matrice di dati (altrimenti non saprei proprio 
come fare).
Capita che io esegua un bel GrigliaMain.RemoveItem GrigliaMain.Row al 
click su un CommandButton, in modo da eliminare la riga selezionata.
Quando perň richiamo questo metodo, la chiamata ad AddItem non mi 
aggiunge piů nessuna riga visibile! La riga riesco a gestirla da codice, 
perchč con TextMatrix riesco a gestire la nuova riga, ma di visibile nulla.
Che succede?
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

Uhm.... forse ho capito.
Problemi di ServicePack.
Siccome da poco ho formattato, non mi sono ricordato di reinstallare 
anche la SP5 per VB.
Posto qualche info appena finisco l'installazione...
(Scusate per il post inutile!!!)
-- 
Quando noi ignoranti eravamo di più, tutto era più bello (A. Celentano).


Ribadisco: problema di SP.
Ora tutto funziona a meraviglia :)


 (Scusate per il post inutile!!!)
Non è detto che lo sia hai fatto bene a postare
la soluzione.
    danilo
Newsgroup: it.comp.lang.visual-basic
Titolo: L e A

Essendo nuovo in questo ng nn penso di dovermi giustificare x come ho
esordito...e neanche di proporre il mio quesito visto che nn è uguale
a quello precedente. Ringrazio lo stesso...e resto in attesa.
Andrea.

 nn penso di dovermi giustificare x come ho esordito
Ma l'hai letto il post "PROTEZIONE" dell 9:55 del 18/10/2002?
--
ale
www.sen.it

Andrea ha scritto:

non ho letto il suo post, ma effettivamente un pò ha ragione
cioè è bene che ci siano regole, manifesti, striscioni ecc :-)
però se uno non ha mai usato un ng e ci è capitato cercando su internet
spiegazioni sul programma che sta studiando da poco
non è che appena arriva si mette a leggersi le regole :-)
penso che la prima cosa che faccia è guardare nei primi post, poi se 
capisce che ci sono altri post e sa usare la ricerca bene, se no si 
registra e posta selvaggiamente :-)
penso sia normale, quindi se uno legge il suo mex e vede che è nuovo di 
qui, se è di buon animo gli risponde al quesito e poi gli dice dove 
reperire le regole del ng
certo se poi è recidivo allora vai di zanne di lupo :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: FileSystemObject

Dove trovo FileSystemObject ActiveX in Visual Basic 6 ???????

Dentro a C:\WINDOWS\SYSTEM\SCRRUN.DLL
Vai nei riferimenti e cerca Microsoft Scripting Runtime
----------
Ciao
Sabba

 Dove trovo FileSystemObject ActiveX in Visual Basic 6 ???????
Microsoft Scripting Runtime    nelle Reference
SCRRUN.DLL

Dove trovo FileSystemObject ActiveX in Visual Basic 6 ???????
Direttamente dall'help
Il modello di oggetti FSO è disponibile in una libreria dei tipi denominata
Scripting, che si trova nel file Scrrun.dll. Se non si è già impostato un
riferimento a tale libreria, selezionare la casella di controllo "Microsoft
Scripting Runtime" nella finestra di dialogo Riferimenti, a cui è possibile
accedere dal menu Progetto. Sarà quindi possibile utilizzare il
Visualizzatore oggetti per visualizzare gli oggetti, gli insiemi, le
proprietà, i metodi, gli eventi e le costanti della libreria dei tipi.
Impostare una variabile come oggetto FileSystemObject:
Dim fso As New FileSystemObject
Utilizzare il metodo CreateObject per creare un oggetto FileSystemObject:
Set fso = CreateObject("Scripting.FileSystemObject")
Ciao


Carica nei riferimenti la lib SCRRUN.DLL, la classe sta li'

 wrote in message
news:8f8vh1$a32$1...@fe2.cs.interbusiness.it...


...


 nessun altro ha fatto la stessa prova ?
No. Come e` andata?
--
Ciao.
Maurizio

...

e' andata che FSO ci mette il doppio del tempo
pero' di contro e' abbastanza comodo..
ciao
Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: [Agent] Messaggi con Agent

Ciao a tutti...
    Ho provato ad aprire con un editor esadecimale i file di Forté Agent...
Non mi sembrano proprio cosě di testo come avevate dtto... Qualcuno sa darmi
una dritta?
        Grazie
                Allanon


azz ... avrei giurato che lo fossero :(
con NewsPro e XNews lo sono sicuramente :)
hth, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Lista processi eseguito dopo l'esecuzione del proprio eseguibile

Scusate ï¿œ possibile trovare solo i processi eseguiti dopo l'esecuzione 
di un mio programma ?
Si puï¿œ verificare l'ora di esecuzione di un processo ?
Ho provato a vedere nel task manager e nelle colonne aggiuntive ma non 
ï¿œ presente la voce data(ora di partenza, vuol dire che non ï¿œ 
possibile ?
Grazie, Alverman

 ha scritto nel messaggio 
news:201001172...@mynewsgate.net...

Invece di taskman usa Process Explorer (dovrai configurare opportunamente le 
colonne da mostrare attivando "Start time"):
http://technet.microsoft.com/en-us/sysinternals/bb896653.aspx
Bye
Raf 

 possibile ?
Per caso ti serve per killare MediaPlayer dopo la durata di un filmato?

> Per caso ti serve per killare MediaPlayer dopo la durata di un filmato?
eh eh eh ...... Hai buona memoria !!
No no ...... mi hai convinto !!
Userï¿œ il classic :)

 User� il classic :)
Oramai mi aspettavo anche questo.
Comunque a quanto ne so non c'� l'ora di start del processo. Ma non mi �
mai interessata.
Potresti provare a fare una lista tua, interrogando ogni tot secondi i
processi in esecuzione, questo si che dovrebbe essere fattibile.

Newsgroup: it.comp.lang.visual-basic
Titolo: Accedere all'ultimo record creato con INSERT INTO

Supponiamo di avere una tabella con un campo contatore (che io uso come
chiave primaria). Usando il metodo AddNew su un recordset in DAO 3.5, posso
immediatamente conoscere il valore che assumerà il campo contatore.
Sfortunatamente io preferisco utilizzare il comando SQL "INSERT INTO".
Qualcuno sa come posso conoscere il valore del campo contatore senza dover
fare una pesante query sugli altri campi?
La soluzione dovrebbe funzionare in un ambiente multiutente
Attualmente io utilizzo la seguente tecnica:
1: faccio una query con "select max(campo) from tabella"
2: continuo ad incrementare il valore ottenuto e ad eseguire l'insert
imponendo il valore del counter fino a quando smetto di ricevere un errore
3022 (Valore duplicato in un indice univoco)
La soluzione funziona ed è atomica in un ambiente multiutente, ma mi
spaventa la prima query con "max". Ho paura che sia troppo pesante con
tabelle molto grandi, e che inoltre appesantisca il traffico in rete.
in SQL Server 6.5 posso scrivere una stored procedure che esegua l'insert e
mi restituisca il valore del campo counter, che va a leggere in una
variabile di sistema
Esiste qualcosa di simile per i file Access MDB? Anche una soluzione per
conoscere il prossimo valore che andrà ad assumere il campo counter andrebbe
bene (senza dover usare max)
(in altre parole, come fa il motore DAO?)
Ogni aiuto è gradito
Dario Russo

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controlli APEX

Salute a tutti,
Ho iniziato da poco ad utilizzare Visual Basic 6.0 e nell'elenco dei
componenti (OCX) disponibili dal menu Progetto->Componenti, ho
attivato la serie relativa ai controlli della APEX (True DBGrid,
DBDate ecc. ) disponibili però solo nella versione 5.0 (APEX True
DBDate 5.0 , per esempio).
Provando a inserirne uno qualsiasi in un Form ottengo il seguente
messaggio di errore:
"Non sono disponibili informazioni sui diritti di licenza per questo
componente. Non sono disponibili i diritti di licenza necessari per
utilizzare questa funzione in ambiente di progettazione".
Che significa? Forse non sono utilizzabili con VB 6.0 ?
Un'altra domandina: qual è la differenza strutturale tra un OCX e una
DLL (a parte il fatto che il primo è un controllo e il secondo una
libreria).
Grazie.   Loris.


L'OCX ha in piu' delle interfacce COM per la gestione visuale del componente
all'interno di un contenitore (una form VB e' un contenitore).

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto facile facile (PENSO)

Sto cominciando a fare esperimenti con un database Access2000
Devo trovare tutti i record che soddisfino questa richiesta:
Trovare il record della tabella 2 che ha come valore nel campo "ID"  il
valore di msflexgrid1.row al momento del mio click su una riga della
griglia.
le istruzioni che mi danno un errore sono queste perchč "record" non č
accettato come variabile
record = MSFlexGrid1.Row
Form2.Data1.Recordset.FindFirst "Nome campo= record"
la sintassi invece con una parola specifica non da problemi
Form2.Data1.Recordset.FindFirst "Nome campo= 'parola' "
oppure un numero
Form2.Data1.Recordset.FindFirst "Nome campo= 1"
Ma se voglio una variabile come devo fare?
Grazie


wrote:

Penso che non sia ancora ora di gestire un database.
Ti consiglio di studiarti come gestire le semplici variabili (Capitolo
1 - Pag. 1)
Form2.Data1.Recordset.FindFirst "Nome campo= '" & record & "'"
Ciao e buona lettura!

Newsgroup: it.comp.lang.visual-basic
Titolo: da RTF a HTML

Ciao a tuti,
    qualcuno per caso ha già avouto il seguente problema, ovvero:
Passare da RTF ad HTML?
Ovviamente ho già provato creando un'istanza di word, aprendo il documento e
rtf e salvandolo
in HTML, ma vi lascio immaginare in che condizioni era il codice HTML.
Qualcuno ha/conosce una activex, un pezzo di codice, un programma lanciabile
da command line
che faccia questo lavoretto.
grazie,
    Matteo.

 
so che esiste.. tempo fa trovai un modulo che faceva la conversione ma
ora non mi ricordo proprio dove l'ho trovato...
bye
p.s.: mi sembra su un newsgroup inglese su visual basic
-- 
emy
Newsgroup: it.comp.lang.visual-basic
Titolo: moduli di classe pubblici vs moduli di classe privati(!?)

Io voglio (x esempio) creare un tipo definito dall'utente,x es:
Public Type Uomo
        Nome As String
        Eta As Integer
End Type
scritto in um modulo.
Poi ho creato un modulo di classe e ho inserito una variabile di tipo Uomo:
Private mPippo As Uomo
Public Property Get Pippo() As Uomo
        Pippo=mPippo
End Property
Public Property Let Pippo(ByVal NewVal As Uomo) As Uomo
        mPippo=NewVal
End Property
Lanciando il programma mi da errore.
Perchè?Dove devo definire i Type in modo da poterli far restituire dalla 
classe?

 classe?
se hai vb5 puoi dichiararli anche ovunque, ma non funzionera' mai...
se hai vb6 direi in un modulo.
ciao, assa.
--
Sito Comune
http://www.it-lang-vb.net/

 classe?
    Hai scritto tutto giusto ma il codice che stai scrivendo e' quello
tipico, per esempio, di una DLL ActiveX.
    Per poter testare quel codice dovrai aggiungere un progetto, impostato
come progetto di avvio, che faccia riferimento a cio' che stai scrivendo.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 come progetto di avvio, che faccia riferimento a cio' che stai scrivendo.
ma perche'?
quella e' una classe normale... perche' non potrebbe utilizzarla in un exe
standard?


 standard?
    Si vede che mi sbaglio. Faro' un test. Tu l'hai gia' fatto? Con che
esito?


 classe?
Il messaggio di errore, per quanto leggermente contorto, ti spiega
esattamente le condizioni perche' la cosa funzioni, che riassumendo sono:
- tipo pubblico
- definizione del tipo in un modulo di classe pubblico
La seconda e' quella determinante; se il tuo progetto e' un Exe standard
(solo classi private), non puo' essere fatto.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 
Quindi creando un exe standard non posso creare classi che restituiscono 
tipi definiti dall'utente??!!
Che devo fare allora?
Io uso VB6.

 Che devo fare allora?
Intanto verifica se e' strettamente necessario l'uso di una struttura al
posto di una seconda classe: come dico spesso, a meno che questo valore non
debba essere utilizzato per chiamate a funzione dell'API oppure direttamente
per la lettura/scrittura di file su disco, si candida a diventare a sua
volta una classe, non un tipo, e la cosa si risolve da sola.
Se non puoi farne a meno, modifica il programma in EXE ActiveX per poter
usare classi pubbliche, e risolvere come ti accennavo in precedenza; e'
sufficiente impostare la modalita' di avvio su "Autonoma" e inserire una sub
Main (se gia' non l'hai fatto) e per il resto lo puoi considerare
esattamente come il programma di prima...


 Public Property Let Pippo(ByVal NewVal As Uomo) As Uomo
I parametri type vanno passati ByRef
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda gestione Socket HTTP con VB

Premessa: non sono un programmatore di VB.
Domanda: usando Inet.Execute "POST", dati
con dati = "pippo",
Quello che mando sul socket http (aperto su un certo host) è
POST nomeappl?pippo http/1.1
?
oppure
POST nomeappl?dati=pippo http/1.1
o una terza ipotesi che non contemplo?
TIA, Deiv.

 wrote in message
news:3B13E93C...@mail.ru...

Fossi in te farei una prova con un browser e un socket in ascolto, oppure mi
leggerei gli RFC. Sicuramente fai prima :)
Ciaotutti,
Alessandro

Ti ringrazio... ho comunque risolto il mio piccolo problema....
Thx, Deiv.

Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic e basic

CIAO!
volevo iniziare a programmare in visual basic: vi chiedo,  č possibile 
iniziare da zero o bisogna avere in precedenza delle conoscenze del 
linguaggio Basic. Se si, che testo mi consigliate di Basic , propedeutico al 
Visul Basic.
Come software mi sono procurato la versione VB 6.
grazie.
Marco 

 Come software mi sono procurato la versione VB 6.
Spero che il pusher ti abbia fornito anche i dischi dell'help in linea, se
no sono dolori.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Vorrei rispondere come Melchiade, perché mi sono spanzato dalle risate. 
Penso proprio che il tuo thread sia uno scherzo...
-- 
'gnurant come una cucuzza

> volevo iniziare a programmare in visual basic: vi chiedo,  č possibile


 alcuni banali.............
No, scusami, avevo capito male...non volevo sfotterti, ho riletto meglio il 
post...
Il linguaggio Basic non è neppure strutturato. Visual Basic invece è ad 
oggetti...
posso dirti che è difficile imparare a programmare leggendo un libro. Dopo 
3 anni di superiori e 5 di univ a masticare informatica, posso ringraziare 
il mio prof delle superiori che era un grande. Ti insegnava a ragionare su 
carta, non sul video. Alla fine, sebbene molti snobbino il lavoro su carta, 
è solo quello che porta a creare software decenti.
Se proprio vuoi cominciare con qualcosa di base, studia il Pascal.
Ma si tratterebbe di studiare ancor prima la teoria degli algoritmi.
Tu prova con un libro di Vb subito...se non ti trovi, prova con ciò che ti 
ho scritto...ciauz

Newsgroup: it.comp.lang.visual-basic
Titolo: ...che figura!

Tiscali ogni tanto da errore e dice che non invia e poi scopri di aver
mandato 4 volte la stessa cosa....

...


 Meditate gente, meditate.
Be questi errori non capitano solo con Tiscali... ma anche con altri
provider
come ad esempio TIN...
Non credo che bisogna generalizzare... magari da te TIN va bene e Tiscali va
male...
Dalle mie parti, Sassari, Tiscali sta andando benino... ma con TIN, anche
non in
orari di punta... non si schioda... cosa che fa inca%%are chi ha speso
300'000 lire
per un abbonamento... e poi si vede costretto ad usare quello gratuito...
Humm mi sa che siamo un po' OT  ^___^;;;;;;;;;;
--
Ciao!
==================================
Daniele Pinna
Email: 
dap...@lycosmail.com
Nell'indirizzo Email eliminare la parola OOPS
Sito Web: Il DoCFa in Pillole: 
http://dapinna.freeweb.org
ICQ UIN: 24567484
______________________________________
  La fantascienza come Star Trek non e' solo un buon divertimento, ma
assolve anche uno scopo serio, che e' quello di
espandere l'immaginazione umana.
  Limitare la nostra attenzione a questioni terrestri equivarrebbe a fissare
dei confini allo spirito umano.
Stephen Hawking

Newsgroup: it.comp.lang.visual-basic
Titolo: Quando viene inizializzato il DataEnvironment?

Ho aggiunto al mio progetto un DataEnvironment.
Vorrei sapere quando viene inizializzato ed aperto e se e' possibile evitare
che venga aperto automaticamente.
Questo mi serve perche' ovviamente il database che utilizzo in fase di
progettazione potrebbe trovarsi in una posizione diversa in fase di
esecuzione.
Grazie.
Ciao.
Skysurfer





Esiste l'evento "DataEnvironment_Initialize".
Io in esso specifico la posizione del mio database tramite:
	Connection1.ConnectionString = MiaStringaDiConnection
	Connection1.Open miodb
	Lore


Newsgroup: it.comp.lang.visual-basic
Titolo: dual processor

Posso inserire su una scheda dual slot 2 o dual slot 1 un pentium 3 500 MHz
e un athlon 600 Mhz?
Win98 o w98 Second edition supportano il dual processor?
se non lo supportano, posso programmare col visual basic in NT4( che
supporta di sicuro il dual processor) e distribuire applicazioni per w95/98?
--
======================================================
Provate il contascatti per internet disponibile all'indirizzo
www.tucci.freeweb.org

PMIII e ATHLON sono uguali esteticamente ma non come architettura (ci vuole
una main apposta), quindi dubito fortemente che esistano mainboard che
possono montare entrambi i processori.
Attenzione a NT, devi prima montare due processori e poi installare NT, se
non ricordo male non vi era modo (almeno un tempo) di dire al sistema che ci
sono 2 processori se quando č stato installato ne aveva uno solo.
Infine dubito altamente che win98 supporti dual processor.
Spero per te di aver scritto una stupidata, ma ahimč credo proprio sia cosě.

 wrote in message
7tai4g$3lh$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare l'interlinea

utilizzando la funzione replace su una variabile che contiene un testo mi
viene stampata sulla cella di excel il testo correttamente modificato solo
che ad ogni riga viene automaticamente inserita un'interlinea, visualizzata
con un quadratino.
Come si fà ad eliminare tutte queste interlinee ?

Sospetto che tu abbia memorizzato nella tua variabile la sequenza <CR> + 
<LF> corrispondente all'andare a capo.
Excel, invece, richiede il solo <LF> (o <CR> non ricordo bene).
Quindi occorre inserire un ulteriore Replace per risolvere il problema:
stringa = Replace(stringa, vbCrLf, VbLf)
-- 
Ettore Massimo Albani

Newsgroup: it.comp.lang.visual-basic
Titolo: Componente per Power Point?

Salve a tutti, vi volevo chiedere  se esiste in Vb6 un componente che
gestisca i file pps di Power Point?
Grazie :)
Kratos

 gestisca i file pps di Power Point?
Che io sappia PPT non espone un OCX o DLL, ma, in tutta sincerità, non me ne
sono mai preoccupato in quanto l'dea di PPT è ottima, la realizzazione
pessima. Insomma, è un bel giochino e nulla più.
Se proprio vuoi, usa la Shell e avvia l'applicativo PPT che, forse, fra gli
argomenti della riga di comando accetta anche il percorso\nome del file da
eseguire.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?][SQL] query con clausula NOT IN

Ciao ragazzi,
mi sono incasinato su una query poichè ho aggiunto un campo chiave in
più....
allora:
ho bisogno di estrapolare i record di una tabella A che hanno un campo
(chiamiamolo "chiave1"), il cui valore NON deve comparire in nessun recod
della tabella B (che ovviamente ha lo stesso campo).
Questo "chiave1" è una chiave univoca nella tabella A ma non nella tabella B
(uno-molti).
Per fare ciò utilizzavo una query del tipo:
SELECT * FROM A
WHERE chiave1 NOT IN (SELECT chiave1 FROM B WHERE [....])
Adesso ho la necessità di aggiungere un campo in più nella chiave e a questo
punto non so come aggiustare la query...:(
se faccio:
SELECT * FROM A
WHERE (chiave1,chiave2) NOT IN (SELECT chiave1,chiave2 FROM B WHERE [....])
vengo giustamente mandato a quel paese....
se faccio:
SELECT * FROM A
WHERE (chiave1 NOT IN (SELECT chiave1 FROM B WHERE [....])
    AND chiave2 NOT IN (SELECT chiave2 FROM B WHERE [...]))
non mi manda a quel paese ma non ottengo il risultato giusto...
qualcuno mi saprebbe indicare la direzione giusta? :)
grazie
ciaociao

 WHERE chiave1 & chiave2 NOT IN (SELECT chiave1 & chiave2 As inelegante


> inelegante FROM B WHERE [....])
mmmm...ok.....ma devo fare una conversione esplicita in stringhe (poichč i
valori sono numerici) e usare il +.
Comunque ti ringrazio, non mi era neanche venuto in mente. Se non trovo
nulla di piů 'elegante' :), farň cosě!
ciaociao

 questo punto non so come aggiustare la query...:(
questa query è stata generata tramite access, quindi non so se funziona
altrove.
SELECT Tabella1.*, Tabella2.[chiave 1], Tabella3.[chiave 2]
FROM (Tabella1 LEFT JOIN Tabella2 ON Tabella1.[chiave 1] = Tabella2.[chiave
1]) LEFT JOIN Tabella3 ON Tabella1.[chiave 2] = Tabella3.[chiave 2]
WHERE (((Tabella2.[chiave 1]) Is Null) AND ((Tabella3.[chiave 2]) Is Null));
restituisce solo i record di tabella1 che non hanno corrispondenza in
tabella2 e in tabella3
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 tabella2 e in tabella3
beh, nel mio caso le tabelle sono solo 2 e la chiave è composta, la query
era un po' più complicata ma........
......Che vergogna.............:(
......una semplice left join.........:(
.....ritorno dietro la lavagna col cappello da somaro.......
ciaociao


Più elegante e performante se con indici vari....
Saluti, Il Sora!!

 Saluti, Il Sora!!
ciaociao


Saluti, Il Sora!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Vb ed Access

Ciao a tutti,
Vi scrivo per chiedervi se potete aiutarmi con un problema probabilmente
banale.
Ho l'esigenza di sviluppare un'applicazione in VB che -data l'apertura di un
file Access (.mdb)-restituisca i nomi delle tabelle presenti in quel file.
Pensavo di usare ADO per "l'interazione" con i dati.
Che voi sappiate,esiste un'istruzione SQL o simile che specificato uno
"schema" restituisca il nome delle tabelle in esso presenti?
Se non fosse possibile una sintassi stile SQL,mi sapreste dire dove posso
trovare della documentazione che possa levarmi questi dubbi???
Al massimo mi scrivete voi il codice ;o)-
Scherzo..
Grazie al NG ed anticpatamente a chi saprà alimentare le mie speranze di
successo ;o§
HAVE A LOT OF FUN
Lorenzo

Spero di aver capito cosa ti serve.
In Access esistono delle tabelle nascoste che sono
un po' come le viste di sistema di Oracle (dico così
perchè da come ti esprimi mi sembri pratico di Oracle).
E' possibile rendere visibili queste tabelle tramite il menu
    Strumenti--->Opzioni
        Visualizzazione
Le tabelle sono del tipo
    MSysObjects
    MSysQueries
    MSysRelationships
    ......
Che io sappia si possono effettuare delle interrogazioni SQL su queste
tabelle
e ricavare gli oggetti presenti nel database.
Spero di esserti stato utile
                                                    danilo

 ha scritto nel messaggio
news:9r3aqg$r9k4i$1...@ID-111402.news.dfncis.de...


Ciao Lorenzo.
In passato ho affrontato un problema simile. Nel mio caso avevo un DB Access con
tabelle collegate e dovevo aggiornare i collegamenti. Purtroppo però non ho
sotto mano il codice esatto quindi vado un pò a memoria. Spero la cosa ti possa
essere di aiuto anche se il codice che ti propongo avrà sicuramente qualche
errore e sarà sicuramente migliroabile dato che non lo sto verificando.
Ad ogni modo il codice era più o meno così:
Sub NomiTabelle()
Dim Cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim StrNomeDataBase As String
Dim Pswd As String 'imposta la password di amministratore
'Imposto le variabili
Pswd = "Admin" 'Imposta la password di amministratore
StrNomeDataBase = "C:\Documenti\prova.mdb" 'PERCORSO DEL TUO DB
'Apro una connessione
Cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & StrNomeDataBase & ";"
'Sulla connessione aperta eseguo un ciclo per tutte le tabelle non di sistema
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & StrNomeDataBase & ";Jet OLEDB:Database Password=" &
Pswd & ";"
       For Each tbl In cat.Tables
            If tbl.Type = "TABLE" Then 'Considera solo le tabelle di access
tralasciando le altre
                MsgBox tbl.Name 'Qui aggiungi il codice che a te interessa una
volta individuato il nome della tabella
            End If
        Next
'Chiude tutto
Cnn.Close
Set Cnn = Nothing
Set cat = Nothing
Set tbl = Nothing
End Sub
Spero di esserti stato di aiuto.
Ciao
maurizio
Lorenzo Mormiro ha scritto:

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Recuperare Utente di Active Dir

Buongiorno a tutti, avrei la necessità da vb6 di recuperare l'utente di
active directory che ha fatto il login sulla macchina.
Grazie
Ciao Sybill 

 ha scritto nel messaggio 
news:edlvcu$os1$1...@fata.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?][SQL Server] File di log

Vorrei solo un piccolo chiarimento:
da un cliente c'è un db di SQL server che ha raggiunto i 9 Gb.
Di questi 9 Gb, 2 sono quelli del file dati (mdf), mentre 7 sono occupati
dal log.
Dato che non è mai stata fatta una adeguata manutenzione non è più possibile
compattare il log per portarlo sotto i 7 Gb.
(ho trovato una stored procedure di 1.000.000 di righe di codice per
troncarlo ma mi sembra un po' pericolosa...)
Se io mi faccio una copia del solo file .mdf, poi elimino l'intero db
dall'Enterprise Manager, rimetto sul server solo l'mdf e ricreo il database
mediante la funzione Collega Database, il file di log viene automaticamente
ricreato vuoto.
Nelle prove che ho fatto il database sembra poi funzionare correttamente, ma
vorrei sapere se ci sono particolari controindicazioni per questa operazione
(oltre ovviamente a non avere più la possibilità di ripristinare le vecchie
transizioni)
Ciao e grazie

Marg ha scritto:

Ti racconto quel che ho capito (ma non ne sono affatto sicuro):
Il file di log archivia le operazioni dall'ultimo backup, in modo da poter
ricostruire il database in caso di anomalie/interruzioni.
Per questo il file di Log viene automaticamente troncato quando si fa un
backup.
Se sei certo che il database è a posto, puoi anche (dopo aver chiuso il
servizio SQL Server) cancellare fisicamente il file di Log. Riavviando il
servizio, verrà automaticamente ricreato a dimensioni minime.

 ricreato vuoto.
Un'altro sistema, se hai abbastanza spazio e vuoi essere piu' tranquillo, e'
quello di creare un nuovo DB, assicurarsi che abbio marcata l'opzione
'truncate on checkpoint' e usare DTS per trasferire tutti gli oggetti dal
vecchio al nuovo... fatte tutte le verifiche del caso puoi eliminare il
vecchio, ricrearlo con lo stesso nome e ripetere il procedimento inverso.
Un po' lungo, ma se vuoi avere cintura e bretelle...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Un po' lungo, ma se vuoi avere cintura e bretelle...
Questo lo so, ma il problema č proprio che lo spazio sul server tende a -
infinito e ho l'URGENZA di liberare spazio.
Comunque grazie, vi farň sapere se avrň bisogno di una colletta per ripagare
i danni all'azienda......:-)


 possibile compattare il log per portarlo sotto i 7 Gb.
Prova questo articolo
http://support.microsoft.com/default.aspx?scid=kb;EN-US;256650
Ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Trasmissione file con zmodem.





Ciao a tutti.


Devo fare un programma che (oltre ad altre cose) 
deve spedire dei file ad un altro pc tramite protocollo zmodem.


Qualcuno può indicarmi in sito con esempi del 
caso?


Grazie 3C.



 wrote in message
003201c11991$7e2fd1e0$3302...@radiocoop.it...

tempo fa' usavo un programmino dos (
DSZ.COM
) a riga di comando che
spediva in xmodem, ymodem e zmodem.
se ti interessa...
P.S. non scrivere in html  ;)


Io ho comperato un ActiveX che gestisce le seriali e
incorpora il protocollo Zmodem.
Costa circa 290.000 lire.
Di free non ne ho trovati.
Ciao
Sir Jo
Newsgroup: it.comp.lang.visual-basic
Titolo: know the size of a file in internet.

Hello one can know the size of a file in internet.
In Ftp it is using the API FTPFINDFIRSTFILE and it returns us a type that in
one of the fields gives us the size, I have proven to use this but not me
it works.

 it works.
Roul,
you're missing something.
The file length is stored in _two_ members of the structure.
.nFileSizeHigh
and
.nFileSizeLow
You would use the macro:
Public Const MAXDWORD = &HFFFF
FileSize& = (FindDataStruct.nFileSizeHigh *  MAXDWORD) _
                 + FindDataStruct.nFileSizeLow
to get what you're looking for.
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] SQL Server 7.0 Desktop non parte

Come consigliato nel topic "SQL Server? Mi aspettavo...", ho installato sul
mio XP Pro la versione DeskTop di SQL Server 7.0. Risultato: Nessun errore
in fase di Setup, ma SQL Server non parte. L'errore č "1069: Il servizio non
č stato avviato a causa di un errore in fase di accesso". Non ne posso piů!
:-((( Grazie per la vostra pazienza.

è stato avviato a causa di un errore in fase di accesso".
PRB: SQL Server Service Did Not Start Due to a Logon Failure (Q282254)
http://support.microsoft.com/support/kb/articles/Q282/2/54.ASP
-- 
hth, hal

 ha scritto nel messaggio
news:abjcl0$im51i$1...@ID-56381.news.dfncis.de...

Hal, sei un grande! Grazie infinite!
Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] Ordinare le liste di file

Ciao a tutti,
qualcuno sa come posso ordinare i nomi dei file in una lista per data invece
che per nome?
Antonio Mirarchi
--
 Visita lo star trek antonio mirarchi club - 
http://StarTrek.freeweb.org
  Visita World On Line - 
http://wol.n3.net

SECONDO ME PER FARLO DEVI USARE LE API DI WINDOWS.
IN UN MODULO DEVI SCRIVERE IL SEGUENTE CODICE
Declare Function FindFirstFileA Lib "kernel32" (ByVal lpFileName As String,
 lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As
FILETIME,
 lpSystemTime As SYSTEMTIME) As Long
Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME,
 lpFileTime As FILETIME) As Long
Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * MAX_PATH
        cAlternate As String * 14
End Type
Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
CON LA "FindFirstFileA" TI TROVI IL FILE CHE TI INTERESSA. LA ROUTINE TI
COMPILA LA VARIABILE "lpFindFileData" CHE CONTIENE LE DATE DI CREAZIONE,
ULTIMA LETTURA, ETC.
  Dim res As Long
  Dim str As String
  Dim lpf As WIN32_FIND_DATA
  Dim data1 As SYSTEMTIME
  str = "C:\WINDOWS\CALC.EXE"
  res = FindFirstFileA(str, lpf)
  res = FileTimeToSystemTime(lpf.ftLastWriteTime, data1)
data1 A QUESTO PUNTO LA FOMATTI COME TI PARE E PIACE. SE POI VUOI
MODIFICARLA,
DEVI USARE LE API SEGUENTI:
Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long,
 lpCreationTime As FILETIME,
 lpLastAccessTime As FILETIME,
 lpLastWriteTime As FILETIME) As Long
ATTENTO IN OGNI CASO A MODIFICARE LE DATE DEI FILE
AUGURI.