Newsgroup: it.comp.lang.visual-basic
Titolo: FileCopy strano problema

Ho memorizzato all'interno di due stringhe i percorsi a due DB. Premetto che 
le stringhe puntano in maniera esatta ai db visto che qualsiasi tipo di 
operazione sul db avviene in maniera corretta.
Adesso sto scrivendo il codice per un semplice backup del db.
Per uno dei due database tutto funziona alla perfezione per il secondo 
ottengo un errore di runtime 52 ("Nome o numero di file non valido").
Non so dove sbattere la testa perchč:
1) Per il primo db tutto funziona bene quindi la procedura dovrebbe essere 
esatta.
2) La stringa che indica il percorso del db č corretta essendo utilizzata in 
ogni altra parte del programma senza problemi.
3) La stringa di destinazione della copia č esatta perchč utilizzando al 
posto della stringa in cui e memorizzato il percorso al secondo db il 
percorso scritto per       intero   la copia del file avviene correttamente.
Aiuto datemi una mno vi prego!!!!!
Grazie mille
IAK

 ha scritto nel messaggio news:K1wye.508$tX6....@twister1.libero.it...

devi postare il codice, per poter capire dove sta l'errore,
altrimenti puoi solo sperare nella risposta di qualche guru

 percorso scritto per       intero   la copia del file avviene correttamente.
Usi un commondialog?
Alberto
-- 
I have a dream that my four little children
will one day live in a nation where they
will not be judged by the color of their skin
but by the content of their character.

 Aiuto datemi una mno vi prego!!!!!
Di grazia...mostraci i due percorsi!

 ha scritto nel messaggio 
news:dae4n7$jsu$1...@newsreader.mailgate.org...

Anzi, 4 (i due di partenza e i due di destinazione)
Ciao 

 ha scritto nel messaggio 
news:dae4n7$jsu$1...@newsreader.mailgate.org...

OK posto il codice.... 


Ma hai provato a mettere un break sulla riga in sui si compone la
stringa? Vedrai che cosě risolvi.
A meno che la tua routine non apra i files in binario per la copia, e
lě potrebbe essere che hai dimenticato un #Close (e un FreeFile())
Ciao

 ha scritto nel messaggio 
news:dae4n7$jsu$1...@newsreader.mailgate.org...

nel file percorso.txt ci sta la riga di connessione
"Path = C:\Documents and 
Settings\giacomo\Desktop\LAVORO\COSMECLICK\produzione.mdb"
il percorso al db lo ricavo da questa sub
Sub percorso()
Dim testo As String
Open App.Path + "\percorso.txt" For Input As #1
Line Input #1, testo
percorso = Right(testo, Len(testo) - 8)
percorso = Left(percorso, Len(percorso) - 1)
Close #1
End Sub
posto la parte saliente della sub per il backup
Private Sub JeweledButton5_Click()
On errror GoTo errore:
Dim percorso1 As String
If MsgBox("Vuoi creare una copia di backup del database?", vbYesNo) = vbNo 
Then
Exit Sub
Else
Screen.MousePointer = vbHourglass
giorno = Format(Date, "d.mmmm.yyyy")
percorso1 = App.Path + "\BackUp\Dossier" & giorno & ".mdb"
FileCopy percorso, percorso1
Screen.MousePointer = vbDefault
MsgBox ("BackUp eseguito con successo")
End If
Exit Sub
errore:
Screen.MousePointer = vbDefault
MsgBox ("Si è verificato l'errore n°: " & Err.Number & vbCr & 
Err.Description)
Exit Sub
End Sub


Metti lì un break e vedi cosa salta fuori...
Ciao

 percorso = Left(percorso, Len(percorso) - 1)
orrore!

 ha scritto nel messaggio 
news:42caa3f2$1...@news.unimib.it...

Soluzioni migliori sono sempre ben accette...però sarebbe bello che 
scrivessi due righe di codice in sostituzione...
Grazie
IAK 

PiantoTardivo ha pensato forte :

Beh, sinceramente, in quelle poche righe di codice ci sono talmente 
tante 'porcherie' (e di quelle note, mica raffinatezze borboniche), che 
andrebbe riscritto tutto.
Credo sia comunque costruttivo fartelo presente, in modo che tu possa 
cercare su google i perchè e i percome.
Scriverti il codice 'riparato' sarebbe invece estremamente poco 
costruttivo, perchè non capiresti il perchè, e ti limiteresti ad un 
copiaincolla.
Fra le prime cosine che mi vengono in mente, vedo delle concatenazioni 
con +, un file aperto come #1 senza usare freefile, un app.path 
utilizzato senza verificare di non essere in root, funzioni di 
sottostringa e di formattazione utilizzate senza $, un err.number 
concatenato senza CStr.
Potresti cominciare da queste.
Per quanto riguarda il problema, beh, l'unica soluzione te l'hanno già 
detta, ed è quella del break e del ? in immediata.
Ciao


 percorso = Left(percorso, Len(percorso) - 1)
percorso=:\Documents and 
Settings\giacomo\Desktop\LAVORO\COSMECLICK\produzione.md
[/watch]
Trovato l'errore ? :-)
-- 
Ciao,
	Fabrizio
===  
http://www.negusweb.it
  ===