(VB6 Prog. zu VB 2008) nun Dateilöschen nicht mehr möglich (wird noch verwendet)

  • VB.NET

    (VB6 Prog. zu VB 2008) nun Dateilöschen nicht mehr möglich (wird noch verwendet)

    Hi,
    ich hab heute das neue VB ausprobiert und mal ein Programm, was ich ich in VB 6 geschrieben hab konvertiert.
    Das Programm soll mehrere Dateien temporär abspeichern und beim beenden wieder löschen.
    leider funktioniert das nicht, da die Dateien angeblich noch benutzt werden.

    Nach dem Konvertieren musste ich diese Codestellen verändern:

    VB.NET-Quellcode

    1. 'Form load ereigniss
    2. Set f = fso.GetFolder(App.Path & "\ordner1\") 'Ordner wo raus gelesen werden soll
    3. ReDim pfad(f.Size) 'auf Dateianzahl dimensionieren
    5. 'Finde alle Dateien
    6. For Each z In f.Files
    7. pfad(temp) = z 'Pfad speichern
    8. temp = temp + 1 'nächster Index
    9. Next


    VB.NET-Quellcode

    1. 'Form close ereigniss
    2. Set f = fso.GetFolder(Environ("temp") & "\ordner2") 'Ordner wo die Datei temporär abgespeichert wird
    4. 'Lösche alle Files
    5. For Each z In f.Files
    6. Kill z
    7. Next


    meine neue Version sah so aus:

    VB.NET-Quellcode

    1. 'Form load ereigniss
    2. str = fso.GetParentFolderName(My.Application.Info.DirectoryPath) & "\ordner1\"
    3. f = fso.GetFolder(str)
    4. ReDim pfad(f.Size) 'auf Dateimenge dimensionieren
    6. 'Finde alle Dateien
    7. mcf = My.Computer.FileSystem.GetFiles(str)
    8. For Each z In mcf
    9. pfad(temp) = z 'Pfad speichern
    10. temp = temp + 1 'nächster Index
    11. Next z


    VB.NET-Quellcode

    1. 'Form close ereigniss
    2. mcf = My.Computer.FileSystem.GetFiles(Environ("temp") & "\ordner2")
    3. For Each z mcf
    4. Kill(z)
    5. Next


    OK ich hab herausgefunden warum die Datei noch verwendet wird.
    Es liegt an der Picturebox in die die Grafik reingeladen wird.

    Nu weiß ich immernoch nicht wie ich die Verbindung trennen kann um das Bild zu löschen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „_Matrix“ ()