Newsgroup: it.comp.lang.visual-basic
Titolo: E' impazzito Visual Basic.. davvero!!!

Penso che sia successo qualcosa a visual basic. Oppure è il mio cervello che
si è fuso.
devo rinominare un file. e quindi inserisco
Appl = CurDir
filepat = Appl & "\art" & DataGrid1.Text & ".mdb"
filepat2 = Appl & "\art" & codiceassieme.Text & ".mdb"
Name filepat As filepat2
dove datagrid1.text mi restituisce "Assieme1"
e codiceassieme.text mi restituisce "Assieme11"
Anche eseguendo VB passo passo con F8 e restando fermo col mouse su queste
variabili vedo che i valori sono quelli.
Ma vb mi segnala che il file non esiste!!!!!
il file Assieme1 esiste. il file Assieme11 naturalmente è ovvio che non
esiste, in quanto deve essere il risultano della rinomina del file Assieme1.
Appl mi restituisce il percorso corretto della cartella in cui si trova il
file Assieme1.
ATTENZIONE:
I file in questione si chiamano ad esempio (supponendo che
Datagrid1.text="Assieme1") sono
artAssieme1.mdb
e (supponendo che codiceassieme.text="Assieme11")
artAssieme11.mdb
e questi due file ESISTONO nella directory!
Che è successo?

 ha scritto nel messaggio
news:9v0q93$cah$1...@nreada.inwind.it...



...se la vecchiaia non mi ha completamente fuso, mi sembra che manchi una
backslash da qualche parte, lascio a te l'ingrato compito di scoprire dove!
PS: Non rilanciare i messaggi dopo poche ore, non è corretto!


[cut]
resta il fatto che stai continuando a quotare come un cammello ubriaco...
:-(
(e 2 avvertimenti...)

quanti sono gli avvertimenti???
e cosa si vince?
ROTFLMAOWPIMP
L2K

 ha scritto nel messaggio
news:ScUQ7.8081$Ah7.2...@news1.tin.it...

intanto hai vinto un viaggio di sola andata nel killfile! :-)
aloha..
Stefano

 intanto hai vinto un viaggio di sola andata nel killfile! :-)
...

dim oMsg as OEMessage
for each oMsg in OE.Messages
    if oMsg.CountQuotedLines > 10  or oMsg.CountQuotedLines >
oMsg.CountLines/3 or oMsg.Body.Search("F1") then
        OE.SendNewMessage oMsg.Sender, "Non Riempire di merda il NG --->
You're been recycled!!!"
        OE.Messages.Remove oMsg.Index
    end if
next
Scusate la ripetizione ma avevo dimenticato una cosettina :)
ciao
L2K

 PS: Non rilanciare i messaggi dopo poche ore, non č corretto!
Hai ragione ma sto veramente impazzendo!!!!!!!!!!

Appl = CurDir
filepat = Appl & "\art\" & DataGrid1.Text & ".mdb"
filepat2 = Appl & "\art\" & codiceassieme.Text & ".mdb"
Name filepat As filepat2
PS : Nota i due "\" dopo art
ciao
L2K

 Scusate la ripetizione ma avevo dimenticato una cosettina :)
...ok, non mi va di fare il moralista, ma effettivamente il tuo modo di
quotare č poco professionale. In effetti quando si legge un messaggio, fa un
po incazzare il fatto di perderne parti solo xchč chi fa il replay si rompe
di tagliare le parti inutili.
Ciao da ciccio!

 ha scritto nel messaggio
news:I52R7.38$3r4....@news1.tin.it...

Forse non sono riuscito a spiegarmi bene.
ART non è una directory! Ma fa parte del nome del file!
se ad esempio il valore di DataGrid1.text è  NOMEFILE allora il nome del
file sul disco è
artNOMEFILE
e questo file esiste!!! mentre vb mi dice di no.


...effettivamente non ti sei spiegato bene!
Comunque fai così:
Appl = CurDir
 If Not Right(Appl , 1) = "\" Then Appl = Appl & "\"
 FilePath= Appl & "art" & DataGrid1.Text & ".mdb"

guarda che il mio messaggio non doveva essere incazzoso... anzi era rivolto
per lo più a me...
cia
L2K


...oK RiCevuTo!