[VB6] Permesso negato creazione cartella

[Elena85]

Ciao a tutti.
Ho un problema con la creazione di una cartella: nel form principale del mio programma ho quattro pulsanti, uno dei quali si chiama "ELABORA FILE". Questo comando serve appunto per elaborare i file (PDF) che si trovano in una cartella. Nello specifico si creano due sottocartelle ("BOLLE" e "CERT") che contengono rispettivamente i pdf relativi alle bolle e i pdf relativi ai certificati. Al termine dell'elaborazione, una volta inseriti i file nel database, elimino le due sottocartelle e ritorno al form principale (quello con i quattro pulsanti). E fin qui tutto ok! Il problema è questo: se chiudo il programma e lo faccio ripartire, tutto bene. Se invece dalla finestra principale clicco di nuovo sul pulsante "ELABORA FILE", al momento della creazione delle sottocartelle mi dà errore: "Permesso negato".
Qualcuno sa spiegarmi il perchè?
Grazie mille!

Codice che genera errore:

'Se Tipo = "QRCERT.V1", sposto il file nella cartella "Cert", altrimenti lo sposto nella cartella "Bolle"...
    'Non elimino gli eventuali file senza QRCode...
    If Tipo = "QRCERT.V1" Then
        contCert = contCert + 1
        If contCert = 1 Then
            'Creo cartella "Cert"....
            If Fso.FolderExists(strCartellaCert) = False Then
            cartellaCert.CreateFolder (strCartellaCert)
            End If
        End If
        Fso.CopyFile nomeAssFile, strCartellaCert
        'Elimino i file dalla cartella di default...
        Set fsoFiles = Fso.GetFolder(txtFile.Text).Files
        Fso.DeleteFile (nomeAssFile)
    ElseIf Tipo = "QRBOLLA.V1" Then
        contBolle = contBolle + 1
        If contBolle = 1 Then
            'Creo cartella "Bolle"...
            If Fso.FolderExists(strCartellaBolle) = False Then
            cartellaBolle.CreateFolder (strCartellaBolle)
            End If
        End If
        Fso.CopyFile nomeAssFile, strCartellaBolle
        'Elimino i file dalla cartella di default...
        Set fsoFiles = Fso.GetFolder(txtFile.Text).Files
        Fso.DeleteFile (nomeAssFile)
    End If
    
Next

In particolare le due seguenti righe:

cartellaCert.CreateFolder (strCartellaCert)

cartellaBolle.CreateFolder (strCartellaBolle)

Codice che uso per eliminare le due sottocartelle alla fine dell'elaborazione dei file:

If cmdSalvaBolla.Value = True Then   'Se è stato eseguito il comando "Salva"...

    Dim Fso As New FileSystemObject
    Dim CartellaBase As Folder
    Dim FsoFolder As Folder

    Set CartellaBase = Fso.GetFolder(strCartellaDefault)

    For Each FsoFolder In CartellaBase.SubFolders

        Debug.Print FsoFolder.Name

        If FsoFolder.Name = "Bolle" Then
            FsoFolder.Delete
        End If

    Next
    
End If

If cmdSalva.Value = True Then   'Se è stato eseguito il comando "Salva"...

    Dim Fso As New FileSystemObject
    Dim CartellaBase As Folder
    Dim FsoFolder As Folder

    Set CartellaBase = Fso.GetFolder(strCartellaDefault)

    For Each FsoFolder In CartellaBase.SubFolders

        Debug.Print FsoFolder.Name

        If FsoFolder.Name = "Cert" Then
            FsoFolder.Delete
        End If

    Next
    
End If

[Elena85]

E' come se le due sottocartelle fossero state cancellate (come in realtà è!) ma il programma le vedesse ancora! E' possibile fare un "aggiornamento" del contenuto di una cartella?

[MItaly]

Per caso le due cartelle stanno sotto c:\Programmi o simili?

[Elena85]

No...La cartella principale è sul desktop...
Se chiudo il programma e lo rilancio, funziona tutto!
Se invece rilancio il comando "ELABORA FILE" (senza chiudere il programma), mi dice "permesso negato"...
Non capisco!!
Comunque grazie!

[oregon]

Provvedi ad eliminare le varie istanze dell'oggetto che gestisce il file system. Ad esempio

Set fsoFiles = Nothing

[Elena85]

Grazie mille! Vado a farlo!

[Elena85]

Ho modificato così il codice:

'Creo cartella "Bolle"...
Set cartellaBolle = Nothing
Set cartellaBolle = New FileSystemObject
If fso.FolderExists(strCartellaBolle) = False Then
     cartellaBolle.CreateFolder (strCartellaBolle)
End If

ma di nuovo "permesso negato"!!

[oregon]

Non dicevo prima dell'uso ma dopo l'uso ...

[Elena85]

Niente anche se lo metto DOPO l'uso...

[Elena85]

Ho notato che dopo che ho cancellato le sottocartelle, se apro la cartella di default prima di chiudere il programma, queste si vedono ancora, ma se ci clicco sopra per aprirle mi dice "permesso negato". Quando invece chiudo il programma, le sottocartelle spariscono...
E' proprio questo il problema!!