Spostare file da una cartella ad un'altra massivamente a tutti i record di una maschera

Graziella Ferrara

unread,

Apr 30, 2022, 10:51:42 AM4/30/22

to

Buon pomeriggio,
sono una new entry, spero possiate aiutarmi!
Ho creato un primo codice per spostare file da una directory ad un'altra, questi file, da una cartella generale vanno a finire ognuno nella cartella di ogni cliente.
Ho trovato il codice per spostarli cliccando sul pulsante di ogni cliente.
per velocizzare l'operazione vorrei creare un pulsante unico per spostare i file massivamente in ogni cartella cliente. Ho quindi creato una maschera che ha come origine dati una query dove sono elencati tutti i clienti, e questo pulsante generale dove ho inserito questo codice:

Private Sub Comando6_Click()
Dim CN As String
CN = [Cognome e Nome]
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim rs As DAO.Recordset
Set rs = DBEngine(0)(0).OpenRecordset("elenchi", dbReadOnly)
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
Do Until rs.EOF

Perc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTII\DOCUMENTI \"
NewPerc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTII\DOCUMENTI \" & CN & "\"
FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
DoEvents
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
End Sub

solo che rimane sempre sul primo record e non scorre in avanti... perchè? potete aiutarmi?
Grazie

BFS

unread,

May 2, 2022, 5:47:20 AM5/2/22

to

intanto mi pare che quel valore CN non cambi mai non essendo valorizzato
dentro il ciclo

mi aspetterei dentro il tuo ciclo qualcosa tipo

CN=rs.fields("nomecliente")

inoltre se non leggo male perc e newperc sono identici quando vai a fare
il movefile

BFS

--
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com

@Alex

unread,

May 2, 2022, 5:53:01 AM5/2/22

to

Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?

@Alex

Graziella Ferrara

unread,

May 4, 2022, 2:06:08 AM5/4/22

to

Il giorno lunedì 2 maggio 2022 alle 11:53:01 UTC+2 @Alex ha scritto:
> Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?
>
> @Alex

Buongiorno,
volevo precisare che, essendo principiante, il codice citato mi è stato fornito da un utente del forum i programmatori, dato che leggo risposte dalle stesse persone dell'altro forum, continuerò a parlarne dall'altra parte.
Grazie.

Simone Calligaris

unread,

May 4, 2022, 2:34:00 AM5/4/22

to

Il giorno lunedì 2 maggio 2022 alle 11:53:01 UTC+2 @Alex ha scritto:

> Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?
>
> @Alex

Quale Forum?

Saluti

Graziella Ferrara

unread,

May 4, 2022, 2:51:04 AM5/4/22

to

Avevo postato sul forum i Programmatori, con il quale ho risolto grazie all'aiuto di alcuni utenti. Vi posto comunque il codice che magari può esservi utile

Private Sub Comando6_Click()
On Error GoTo Err_Comando6_Click
Dim CN As String

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim rs As DAO.Recordset
Set rs = DBEngine(0)(0).OpenRecordset("elenchi", dbReadOnly)
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
Do Until rs.EOF

CN = rs![CognomeNome]
Perc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTI\DOCUMENTI DIGITALI\CLIENTI\1.DOCUMENTI DA IMPORTARE\"
NewPerc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTI\DOCUMENTI DIGITALI\CLIENTI\" & CN & "\"

FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
DoEvents
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox ("Non esistono documenti per questo cliente")
Resume Next
End Sub

Buona giornata