Philcattivocarattere ha scritto:
grazgrace ha scritto:
Diciamo che ... funziona tutto
Per completare il thread quindi è bene pubblicare anche la soluzione applicata al tuo problema iniziale, in modo che possa essere d'aiuto a chi eventualmente si troverà di fronte alla stessa esigenza.
Ma certo, scusate
Private Sub Comando509_Click()
Dim CN As String
CN = [CognomeNome]
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Perc = "\\192.168.0.199\GESTIONALE_VA\ALUNNI\GESTIONE ATTIVITA\GESTIONE ALUNNI\DOCUMENTI DIGITALI\ALUNNI\1.DOCUMENTI DA IMPORTARE\"
NewPerc = "\\192.168.0.199\GESTIONALE_VA\ALUNNI\GESTIONE ATTIVITA\GESTIONE ALUNNI\DOCUMENTI DIGITALI\ALUNNI\" & CN & "\"
If Not FSO.FolderExists(NewPerc) Then
FSO.CreateFolder NewPerc
End If
FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
End Sub
Ne approfitto, perchè ho provato ad evolvere il codice, 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\ALUNNI\GESTIONE ATTIVITA\GESTIONE ALUNNI\DOCUMENTI DIGITALI\ALUNNI\1.DOCUMENTI DA IMPORTARE\"
NewPerc = "\\192.168.0.199\GESTIONALE_VA\ALUNNI\GESTIONE ATTIVITA\GESTIONE ALUNNI\DOCUMENTI DIGITALI\ALUNNI\" & 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 ai successivi...