Newsgroup: it.comp.lang.visual-basic
Titolo: (cross post)copiare un file da un cartella ad un'altra

Buonasera a tutto il NG.
Qualcuno è cosi gentile da indicarmi il codice per copiare da VB un file dal
path corrente in un'altra cartella ad es quella temporanea?
Grazie per l'eventuale dritta.
-- 
Ciao
Access 

 path corrente in un'altra cartella ad es quella temporanea?
FileCopy --> tasto F1
Bye, G. 

ciao paperino,
"Paperino" <non...@lo.dico.invalid> ha scritto nel messaggio 
news:f9n5cj$hmp$1...@registered.motzarella.org...

grazie per l'attenzione, ho dato un occhiata al filecopy ma mica sono 
riuscito ad implementarlo.
Qualche esempio pratico?
grazie ancora per la pazienza.
-- 
Ciao
Access 

 Qualche esempio pratico?
Sei proprio sicuro di aver guardato?
Esempio di istruzione FileCopy
In questo esempio l'istruzione FileCopy viene utilizzata per copiare un file
su un altro. Nell'esempio, FILEORIG è un file che contiene dati.
Dim SourceFile, DestinationFile
SourceFile = "FILEORIG"   ' Definisce il nome del file di origine.
DestinationFile = "FILEDEST"   ' Definisce il nome del file di destinazione.
FileCopy SourceFile, DestinationFile   ' Copia il file di origine sul file
di destinazione.
-- 
Greg 

ciao greg,
"greg" <gre...@tin.it.invalid> ha scritto nel messaggio 
news:f9nr5h$15q$1...@tdi.cu.mi.it...

Certo che ho guardato:
http://msdn2.microsoft.com/it-it/library/2s1c774y(VS.80).aspx
in questo modo riesco a copiare il file di origine in un altro file
ma non riesco a copiare i file in una determinata cartella senza inserie il 
nome file di destinazione poichè dovrebbe essere quello di origine, per 
questo o chiesto un esempio.
Insomma io desidererei copiare i file da vb, come se li seleziono col mouse 
e faccio copia e incolla.
-- 
Ciao
Access

 e faccio copia e incolla.
una cosa cosi'?
    Dim s As String, sSource As String, sTarget As String
    s = Dir(mainPath & "*.*")
    While s <> ""
        If s <> "." And s <> ".." Then
            sSource = mainPath & s
            sTarget = cboDrive & "\all\" & s
            lblStatus = sTarget: DoEvents
            FileCopy sSource, sTarget
        End If
        s = Dir
    Wend
ciao, a.


Eh!
Difficile dare il percorso completo anzichè il solo nome del file!
Usare il solo nome di file anzichè l'intero percorso è comunque una pratica 
pericolosa pochè non si può mai sapere quale sia la cartella di lavoro in 
uso.
Ciao 

 ha scritto nel messaggio 
news:5i9c85F...@mid.individual.net...

Allora cerco di spiegarmi meglio.
io vorrei che quando avvio il mio prog da cd, mi copi automaticamente tutti 
i file nella directory temporanea "temp".
Grazie 10000 per la pazienza
-- 
Ciao
Access 

 ha scritto nel messaggio 
news:46bf7d28$0$4788$4faf...@reader4.news.tin.it...

Ok, pur dando il percorso completo del file se io ho 5 file in una cartella 
posso copiarli ad esempio nella cartella temporanea "TEMP", senza pero dare 
un nome al file di destinazione atteso che sia lo stesso di quello di 
origine? 

 Grazie 10000 per la pazienza
adatta le righe che ti ho postato, e sei ok.
ciao, a.

 ha scritto nel messaggio 
news:5i9f5oF...@mid.individual.net...

Ci sto provando, ma non riesco.
Dim s As String, sSource As String, sTarget As String
    Dim mainPath
    mainPath = Dir(mainPath & "*.*")
    s = TemporaryDirectory
    While s <> ""
        If s <> "." And s <> ".." Then
            sSource = mainPath
            sTarget = s
            lblStatus = sTarget: DoEvents
            FileCopy sSource, sTarget
        End If
        s = Dir
    Wend
Questa mi dice che è impossibile trovare il percorso.
-- 
Ciao
Access 

 quello di origine?
Ma porca miseria!
Il nome del file di destinazione lo conosci! E' lo stesso di quello di 
origine! Lo dici tu!
Stando al codice di andrea, quello originale, non quello che hai pasticciato 
senza senso.
Dovresti leggere anche l'help anche di Dir(), che però sta sotto quel poco 
che è rimasto di VB6: il link
Language Reference -> Functions.
http://msdn2.microsoft.com/en-us/library/aa338032(VS.60).aspx
non sotto VS.80 che è VB.Net 2005.
sDirectoryDestinazione = Environ("TEMP")
...
' occhio ai backslash che non so se li hai o no.
sNomeOrigine = Dir(sDirectoryOrigine & "\*.*")
Do While sNomeOrigine <> ""
    FileCopy sDirectoryOrigine & "\" & sNomeOrigine, sDirectoryDestinazione 
& "\" & sNomeOrigine
    sNomeOrigine = Dir()
Loop
Il controllo sul fatto che sNomeOrigine è una directory dovrebbe essere 
inutile se non lo si specifica a Dir().
Se devi copiare anche files in sottodirectory dal CD di origine sei nei 
casini perchè Dir() non è ricorsiva e FileCopy non copia directory ma 
singoli file.
In questo caso il problema si complica parecchio.
Ciao 

 In questo caso il problema si complica parecchio.
sei stato sin troppo gentile ed ahai avuto molta pazienza, ora tutto 
funziona alla grande.
grazie 1000000000
-- 
Ciao
Access