✔ Flexgrid auslesen und Löschen

[Alex F.]

Interessante Idee das Grid von unten nach oben durchzuschleifen (ungewöhlich aber nicht schlecht ! )

Wenn es so funktioniert, warum nicht. Du musst natürlich die File Variable noch irgendwie füllen.
Zum Löschen könntest du auch eine Api mit shellexecute losjagen, aber ich denke das Filesystemobject ist da nicht übertrieben.


Grüsse bb

 

[zyclop]

FlexGrid füllen,dass macht es ja in einer anderen Funktion...das klappt auch...Das Problem mit das er zu wenig Darstellt nur 20 bei 36 einträgen ist auch gelöst...wenn du die schlaufe genau anschaust inkrementiere ich den einen Zähler und beim andern nehme ich 1 weg...so trifft sich das in der Mitte. Ich habe für die Schlaufen Indexierung die Alte Variable verwendet.

Hier nun der Saubere Code.

Private Sub cmdLoesch_Click()

'Variablen Deklaration
    Dim strPathDel As String        'Pfad welcher zu löschen ist
    Dim lonCounterSchlaufe As Long  'Zähler in der Schlaufe
    Dim lonCounterZeile As Long     'Temp Variable um den lonZeileZaehler nicht zu verändern
    
    lonCounter = 0
    lonCounterZeile = lonZeileZaehler
    Do While lonCounterSchlaufe <= lonZeileZaehler
    
    lonCounterSchlaufe = lonCounterSchlaufe + 1
    
    Path = MSFlexGrid1.TextMatrix(lonCounterZeile, 5)
    MsgBox (File & Path) 'anstatt mSGBOX kommt delet vorgang hier
    
    lonCounterZeile = lonCounterZeile - 1
    Loop
End Sub

Habe noch das Bild angehängt um zu sehen wie es Aussieht.

 

[zyclop]

Aber wie soll ich nun das Löschen machen? Ich habe den Direkten Pfad zur Datei oder Ordner...hast du da eine Idee?


BEWERTET BITTE die RenomeePunkte von brainbyte...renomee oder wie das auch heisst

 

[Alex F.]

inkrementiere ich den einen Zähler und beim andern nehme ich 1 weg...so trifft sich das in der Mitte. Ich habe für die Schlaufen Indexierung die Alte Variable verwendet.
.

Werden dabei wirklich alle einträge dann gelöscht ? Weil du ja pro durchlauf nur einen Eintrag löscht.

Naja, ich geh mal davon aus. Also noch viel erfolg bei deinem Projekt.

Grüsse bb

 

[zyclop]

Aber wie soll ich nun das Löschen machen? Ich habe den Direkten Pfad zur Datei oder Ordner...hast du da eine Idee?

der String beinhaltet z.B: C:\Temp\sub\sub_sub\sub

 

[Alex F.]

Also wenn du einen Pfad hast musst du das so machen

Public Function DeleteFolder(Foldername As String)
    Dim fld As Object
    Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set fld = fso.GetFolder(Foldername)

    fld.Delete
    
    Set fld = Nothing
    Set fso = Nothing
End Function

Wenn du eine Datei löschen willst

Public Function DeleteFile(FileName As String)
    Dim fle As Object
    Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set fle = fso.Getfile(FileName)

    fle.Delete
    
    Set fle = Nothing
    Set fso = Nothing
End Function

Grüsse bb