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: