Risultati da 1 a 4 di 4

Discussione: Copia cartella su disco



  1. #1
    L'avatar di Bruno
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Cireggio Italy
    Età
    66
    Messaggi
    141
    Versione Office
    2016 64 Bit
    Likes ricevuti
    38
    Likes dati
    6

    Copia cartella su disco

    Ciao

    Ho realizzato il seguente codice per copiare in C:\Bakup\ l'intero contenuto della cartella C:\Intel per esempio.
    Si tratta di copiare tutti i file e i percorsi presenti (Note: nessun file nascosto o di sistema è incluso)
    Chiedo per cortesia se potete suggerire come indicare il tempo necessario alla copia di tutti i file che potebbe richiedere 30 secondi circa
    Qualsiasi suggerimento è gradito, compreso la totale sostituzione con il metodo Xcopy Dos

    Codice: 
    'Add references: Microsoft scripting runtime will be displayed
    
    
    Sub Pulsante1_Click()
    '   CopyFiles "C:\Intel", "C:\Bakup\Destination"
    Dim fSys As New FileSystemObject
    Dim Cartella As String
    Cartella = "C:\Bakup\Destination " & Day(Date) & " " & Month(Date) & " " & Year(Date) & "_" & Hour(Time) & " " & Minute(Time)
    If Dir("C:\Bakup", vbDirectory) = "" Then MkDir "C:\Bakup"
    With fSys
    .CopyFolder "C:\Intel", Cartella, True
    End With
    
    
    End Sub

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Bruno Visualizza Messaggio
    Ciao

    Ho realizzato il seguente codice per copiare in C:\Bakup\ l'intero contenuto della cartella C:\Intel per esempio.
    Si tratta di copiare tutti i file e i percorsi presenti (Note: nessun file nascosto o di sistema è incluso)
    Chiedo per cortesia se potete suggerire come indicare il tempo necessario alla copia di tutti i file che potebbe richiedere 30 secondi circa
    Qualsiasi suggerimento è gradito, compreso la totale sostituzione con il metodo Xcopy Dos

    Codice: 
    'Add references: Microsoft scripting runtime will be displayed
    
    
    Sub Pulsante1_Click()
    '   CopyFiles "C:\Intel", "C:\Bakup\Destination"
    Dim fSys As New FileSystemObject
    Dim Cartella As String
    Cartella = "C:\Bakup\Destination " & Day(Date) & " " & Month(Date) & " " & Year(Date) & "_" & Hour(Time) & " " & Minute(Time)
    If Dir("C:\Bakup", vbDirectory) = "" Then MkDir "C:\Bakup"
    With fSys
    .CopyFolder "C:\Intel", Cartella, True
    End With
    
    
    End Sub
    Scusa Bruno non vorrei essere banale ma non ti conviene creare un file batch che è molto più semplice? (xcopy DOS visto che lo hai citato)

    ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di Bruno
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Cireggio Italy
    Età
    66
    Messaggi
    141
    Versione Office
    2016 64 Bit
    Likes ricevuti
    38
    Likes dati
    6
    Originariamente Scritto da Baloon_50
    Scusa Bruno non vorrei essere banale ma non ti conviene creare un file batch che è molto più semplice?
    Non saprei scrivere un codice valido nelle versioni Windows xp Windows 10 compreso
    Quale manuale mi suggerite? Chi lo può verificare...

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Bruno Visualizza Messaggio
    Non saprei scrivere un codice valido nelle versioni Windows xp Windows 10 compreso
    Quale manuale mi suggerite? Chi lo può verificare...
    Se fai una ricerca con google ne trovi tantissimi sinceramente non saprei a priori quale suggerirti :250:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. [Risolto] Con VBA Cerca File in Cartella e copia in altra cartella
    Di ginofamilio nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 28/01/17, 13:50
  2. File in cartella e elenco su excel
    Di fededigi nel forum Domande su Excel in generale
    Risposte: 20
    Ultimo Messaggio: 10/12/16, 17:14
  3. Cartella compressa di Office 2007
    Di tk71 nel forum Windows
    Risposte: 9
    Ultimo Messaggio: 28/11/16, 10:57
  4. stampare tutta la cartella in pdf
    Di ste75v nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 06/07/16, 17:08
  5. da una cartella A creare un pulsante nella cartella B ed associarlo ad una routine di B
    Di cinziorecoaro nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 15/04/16, 14:17

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •