Copiare La cartella Documenti ed incollarla in rete sul server

Question

Salve a Tutti

Ho creato un DB “CopiaDati”, con solo una maschera, senza tabelle, sulla maschera ho posto un pulsante, vorrei che nell’ evento clic del pulsante “ComandoCopia”, venga scritto un codice che mi copi la cartella che sta in:

“C:\Documents and Settings\DiDomenico\Documenti” (che sta sul pc che sto usando), e incollarla nella cartella a lei dedicata sul server in:

\\Server-di-rete\RagDiDomenico

Spero di essermi spiegato benino, attendo con speranza un vostro cortese interessamento.

Paolo

Answer 1

Ciao Paolo,

nell'evento click del pulsante ComandoCopia incolla il seguente codice:

---

Private Sub ComandoCopia_Click()

    Dim objCopia As Object

    Dim strOrig As String

    Dim strDest As String

    strOrig = "C:\Documents and Settings\DiDomenico\Documenti"

    strDest = "\\Server-di-rete\RagDiDomenico"

    If Dir(strDest, vbDirectory) = "" Then

        MkDir strDest

    End If

    Set objCopia = CreateObject("Scripting.FileSystemObject")

    objCopia.copyfolder strOrig, strDest

    MsgBox "Copia OK!!!"

    Set objCopia = Nothing

End Sub

---

David

Answer 2

Ciao Mauro,

credo di non aver capito ... anzi ne sono sicuro ... :-))

 

David

Niente niente, in Windows 7 non funziona (anche sostituendo Documents & Settings con User).

Vedo adesso che l'OP ha Win XP.

Answer 3

Ciao Paolo,

nell'evento click del pulsante ComandoCopia incolla il seguente codice:

 

---

Private Sub ComandoCopia_Click()

   

    Dim objCopia As Object

    Dim strOrig As String

    Dim strDest As String

   

    strOrig = "C:\Documents and Settings\DiDomenico\Documenti"

    strDest = "\\Server-di-rete\RagDiDomenico"

   

    If Dir(strDest, vbDirectory) = "" Then

        MkDir strDest

    End If

   

    Set objCopia = CreateObject("Scripting.FileSystemObject")

   

    objCopia.copyfolder strOrig, strDest

   

    MsgBox "Copia OK!!!"

   

    Set objCopia = Nothing

   

End Sub

---

 

David

Ciao Devid Come sempre sei il mio angelo custode

Ho copiato il codice nellevento clic del pulsante,

ma mi da un eerrore nell'if  "nome o numero di file non valido"

Answer 4

Ciao Mauro,

credo di non aver capito ... anzi ne sono sicuro ... :-))

David

Answer 5

 

nell'evento click del pulsante ComandoCopia incolla il seguente codice:

 

<cut>

 

David

Tu devi avere delle autorizzazioni speciali, David... ;-)