Copia cartella
All_Eyez_On_ME
Esiste un comando per copiare un'intera cartella?
Ciao e buon week-end
Silvio Berruti
"All_Eyez_On_ME" <bf-si...@libero.it> ha scritto nel messaggio
news:u%rP6.1522$WT5....@news.infostrada.it...
> Ciao boys!
>
> Esiste un comando per copiare un'intera cartella?
risp = shell("xcopy " & Origine & " " & Destinazione & " /s /e")
ricordandosi di usare una sintassi tipo
shell("xcopy C:\temp\ C:\temp1\ /s /e")
cioč con i percorsi che terminano con "\", altrimenti viene chiesto se si
tratta di file o di directory
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Esteban
news:u%rP6.1522$WT5....@news.infostrada.it...
> Ciao boys!
>
> Esiste un comando per copiare un'intera cartella?
>
> Ciao e buon week-end
Puoi crearti una funzione:
Function DirCopy(SourceDir As String, DestDir As String)
Dim FileName As String
FileName = Dir(SourceDir & "\*.*")
Do While Len(FileName) > 0
FileCopy SourceDir & "\" & FileName, DestDir & "\" & FileName
FileName = Dir
Loop
End Function
Ciao!
Esteban
Hosted by www.seber.it
Silvio Berruti
"Esteban" <Est...@news.it> ha scritto nel messaggio
news:qsAP6.5883$WT5.1...@news.infostrada.it...
Anch'io avevo subito pensato a Filecopy, ma non mi risulta che possa usare
"*.*" e che possa copiare eventuali sotto cartelle (almeno in A97).
Esteban
news:H4JP6.7284$WT5.2...@news.infostrada.it...
> >
> > Puoi crearti una funzione:
> >
> > Function DirCopy(SourceDir As String, DestDir As String)
> > Dim FileName As String
> > FileName = Dir(SourceDir & "\*.*")
> > Do While Len(FileName) > 0
> > FileCopy SourceDir & "\" & FileName, DestDir & "\" & FileName
> > FileName = Dir
> > Loop
> > End Function
>
> Anch'io avevo subito pensato a Filecopy, ma non mi risulta che possa usare
> "*.*" e che possa copiare eventuali sotto cartelle (almeno in A97).
>
> --
>
> Silvio
1) Se leggi il codice, vedi che c'č un ciclo: per ogni file che esiste nella
cartella SourceDir 'Dir(SourceDir & "\*.*")' copia il file (il cui nome č
ritornato dalla funzione Dir e memorizzato nella variabile FileName) nella
cartella DestDir con lo stesso nome.
2) Nella domanda _non_č_richiesta_ la copia di tutte le sottocartelle! (Esiste
un comando per copiare un'intera cartella?)
Ok? Soddisfatto?
Esteban
Hosted by www.seber.it
Silvio Berruti
> "Silvio Berruti" <s...@libero.it> wrote in message
> news:H4JP6.7284$WT5.2...@news.infostrada.it...
> > >
> > > Puoi crearti una funzione:
> > >
> > > Function DirCopy(SourceDir As String, DestDir As String)
> > > Dim FileName As String
> > > FileName = Dir(SourceDir & "\*.*")
> > > Do While Len(FileName) > 0
> > > FileCopy SourceDir & "\" & FileName, DestDir & "\" & FileName
> > > FileName = Dir
> > > Loop
> > > End Function
> >
> > Anch'io avevo subito pensato a Filecopy, ma non mi risulta che possa
usare
> > "*.*" e che possa copiare eventuali sotto cartelle (almeno in A97).
> >
> > --
> >
> > Silvio
>
nella
> cartella SourceDir 'Dir(SourceDir & "\*.*")' copia il file (il cui nome è
> ritornato dalla funzione Dir e memorizzato nella variabile FileName) nella
> cartella DestDir con lo stesso nome.
>
(Esiste
> un comando per copiare un'intera cartella?)
>
> Ok? Soddisfatto?
Ok! OK! Non te la prendere... ho letto male il tuo codice...
... però se mi chiede se esiste un comando che copi un'intera cartella, x me
intende anche eventuali sotto cartelle...
... ma non mi dichiarare guerra x questo... :-)))
Ciao
All Eyez On Me
>
> "All_Eyez_On_ME" <bf-si...@libero.it> ha scritto nel messaggio
> news:u%rP6.1522$WT5....@news.infostrada.it...
> > Ciao boys!
> >
> > Esiste un comando per copiare un'intera cartella?
>
> risp = shell("xcopy " & Origine & " " & Destinazione & " /s /e")
>
> ricordandosi di usare una sintassi tipo
> shell("xcopy C:\temp\ C:\temp1\ /s /e")
>
> tratta di file o di directory
>
> --
>
>
> Silvio
>
>
> il sito comune di it.comp.appl.access:
> http://www.sitocomune.com
>
>
Riccardo
Ciao Silvio, tu con il comando Shell, hai poi utilizzato un comando dos.
Si puo' utilizzare per tutti i comandi dos?
thank's
Riccardo
Riccardo
>
> "All_Eyez_On_ME" <bf-si...@libero.it> ha scritto nel messaggio
> news:u%rP6.1522$WT5....@news.infostrada.it...
> > Ciao boys!
> >
> > Esiste un comando per copiare un'intera cartella?
>
> risp = shell("xcopy " & Origine & " " & Destinazione & " /s /e")
>
> ricordandosi di usare una sintassi tipo
> shell("xcopy C:\temp\ C:\temp1\ /s /e")
>
> cioč con i percorsi che terminano con "\", altrimenti viene chiesto se si
> tratta di file o di directory
>
> --
>
>
> Silvio
C'č un comando che la fa chiudere in automatico?
ciao Riccardo
Silvio Berruti
"Riccardo" <ricc...@free.panservice.it> ha scritto nel messaggio
news:9esrlj$gmo$1...@news.panservice.it...
Creati allora un flie batch DirCopy.bat cosě composto
@echo off
xcopy %1 %2 /s /e
cls
da Access lo lanci con
risp = shell("DirCopy " & Origine & " " & Destinazione)
All Eyez On Me
Riccardo <ricc...@free.panservice.it> wrote in message
9esrlj$gmo$1...@news.panservice.it...
e non si vede nulla del dos
AEOM
Silvio Berruti
"Riccardo" <ricc...@free.panservice.it> ha scritto nel messaggio
news:9esqt8$gft$1...@news.panservice.it...
>
> Ciao Silvio, tu con il comando Shell, hai poi utilizzato un comando dos.
> Si puo' utilizzare per tutti i comandi dos?
La sintassi è valida x tutti i comandi esterni del DOS, x qualunque
eseguibile e x i file batch.
Riccardo
All Eyez On Me <fish...@tiscalinet.it> wrote in message
9esvnc$uud$1...@lacerta.tiscalinet.it...
sulla barra di Windows
ciao
All Eyez On Me
Riccardo
Pardon!
avevi ragione....avevo provato con vbMinimizedNoFocus
ciao Riccardo
Riccardo
Ho creato il file pippo.bat in c:\ cosě come mi hai scritto tu.
Su Evento click di un pulsante ho scritto:
Dim Origine As String
Dim Destinazione As String
Dim copia
Origine = "c:\access"
Destinazione = "C:\__pippo\"
copia = Shell("c:\pippo " & Origine & " " & Destinazione)
ma mi da :
Errore di Run-time 5
Chiamata di Routine o argomenti non validi
vado in debug e mi evidenzia in giallo la riga
copia = Shell("c:\pippo " & Origine & " " & Destinazione)
dove sbaglio?
Silvio Berruti
>
> _______
> Ho creato il file pippo.bat in c:\ così come mi hai scritto tu.
> Su Evento click di un pulsante ho scritto:
>
> Dim Origine As String
> Dim Destinazione As String
> Dim copia
>
> Origine = "c:\access"
> Destinazione = "C:\__pippo\"
> copia = Shell("c:\pippo " & Origine & " " & Destinazione)
>
> ma mi da :
> Errore di Run-time 5
> Chiamata di Routine o argomenti non validi
>
> vado in debug e mi evidenzia in giallo la riga
> copia = Shell("c:\pippo " & Origine & " " & Destinazione)
Dim Origine As String
Dim Destinazione As String
Dim copia as Long
Origine = "c:\access\"
Destinazione = "C:\__pippo\"
copia = Shell("c:\pippo.bat " & Origine & " " & Destinazione)
Esteban
>
> "Riccardo" <ricc...@free.panservice.it> ha scritto nel messaggio
> news:9esqt8$gft$1...@news.panservice.it...
> >
> > Ciao Silvio, tu con il comando Shell, hai poi utilizzato un comando dos.
> > Si puo' utilizzare per tutti i comandi dos?
>
> La sintassi è valida x tutti i comandi esterni del DOS, x qualunque
> eseguibile e x i file batch.
>
Funziona anche per i comandi interni:
in Windows 9x: shell "command /C comando_interno"
in Windows NT: shwll "cmd /C comando interno"
L'opzione /C esegue il comando e poi chiude la finestra di Dos. Se vuoi aprire
una finestra di Dos e lasciarla aperta dopo l'esecuzione del comando (p.e. per
controllare l'esecuzione del comando) allora usa il parametro /K.
Silvio Berruti
"Esteban" <Est...@news.it> ha scritto nel messaggio
news:yPyQ6.2434$HK.2...@news.infostrada.it...
Perfetto!