Ciao,

il codice è questo:

codice:
Dim ConnessioneDB As Connection

Sub Hola(Directory As String)
Dim A As String
Dim Cont As Integer
Cont = 0
Do Until A = ""
If Cont = 0 Then A = dir(Directory, vbDirectory + vbHidden)
MsgBox A
If GetAttr(Directory & A) = 16 Or GetAttr(Directory & A) = 18 Then
RmDir (Directory & A)
Else
Kill (Directory & A)
End If
MsgBox GetAttr(Directory & A)
MsgBox Directory & A
ConnessioneDB.Close
Cont = 1
A = dir
Loop
End Sub

Sub Contenuto()
Dim rsDirectory As Recordset
Dim qDirectory, Directory, CurrentFile As String
Set ConnessioneDB = New Connection
ConnessioneDB.Provider = "Microsoft.Jet.OLEDB.4.0"
ConnessioneDB.Open "\\CartellaCondivisa\Sottocartella\FileDatabaseAccess.mdb"
Set rsDirectory = New Recordset
qDirectory = "SELECT directory FROM tContenuto"
rsDirectory.Open qDirectory, ConnessioneDB
Do Until rsDirectory.EOF
With rsDirectory
Directory = !Directory
End With
Call Hola(Directory)
rsDirectory.MoveNext
Loop
rsDirectory.Close
Set rsDirectory = Nothing
ConnessioneDB.Close
Set ConnessioneDB = Nothing
End Sub

Private Sub Form_Load()
Call Contenuto
End Sub
se ce bisogno di chiarire qualcosa dimmelo...

prova a vedere un attimo...


ps: "simulare" sta per eseguire!!
:quote: