
 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