
Originariamente inviata da
nicola75ss
In attesa che un moderatore di sezione ti sposti in windows
codice:
Private Sub Comando0_Click()
Dim strSQL As String
Dim strPath As String
Dim rst As DAO.Recordset
strSQL = "select distinct nome from tabella"
strPath = "C:\path_in_cui_creare_cartelle\"
Set rst = CurrentDb.openrecordset(strSQL, dbopensnapshot)
If rst.RecordCount > 0 Then
rst.MoveFirst
Do While Not rst.EOF
MkDir strPath & rst("nome")
rst.MoveNext
Loop
MsgBox "Operazione conclusa"
End If
End Sub