Slette en fil burde være enkelt

Du kunne gøre sådan: Indsæt følgende i din form:
En DirListBox (Dir1), en DriveListBox (Drive1), en FileListBox (File1) og en Knap (Command1).
Kopier denne kode direkte ind i formen:
Dim sFile

Private Sub Command1_Click()
    Dim a
    If Not sFile = "" Then
        a = MsgBox("Er du sikker på at du vil slette " & sFile, vbOKCancel)
        If a = vbOK Then Kill sFile
        File1.Refresh
    End If
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
    File1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
    sFile = Dir1.Path & "\" & File1.FileName
   
End Sub

Nu vælger du en fil, og derefter sletter den med Command 1

Kill "c:\Program FilesIBSkviteringtest.txt"

har tilføjet en \

Akj

argh...

Kill "c:\Program Files\IBSkviteringtest.txt"

>>dk akj  Det er sandsynligvis blot Eksperten, der har smidt backslashene væk. Der er et problem med "Opret Spm" textfeltet. Det er der dog ikke i "svar" felterne.

OKi

akj

Koden som du skrev tjacob fungerer fint tx. Men går det ann og låse
DirListBox (Dir1), en DriveListBox til bestemte filbaner ?

Ja det kan du godt. Indsæt betingelser i Change-events:

F.eks. Det skal kun være muligt at vælge C:-drevet:

Private Sub Drive1_Change()
    If Drive1.Drive <> "c:" Then
        Drive1.Drive = "c:"
        Exit Sub
        Dir1.Path = Drive1.Drive
        File1.Path = Drive1.Drive
    End If
    Dir1.Path = Drive1.Drive
    File1.Path = Drive1.Drive
End Sub

Hov der er fejl:
Private Sub Drive1_Change()
    If Drive1.Drive <> "c:" Then Drive1.Drive = "c:"
    Dir1.Path = Drive1.Drive
    File1.Path = Drive1.Drive
End Sub

Det er nok ;-)

tx igjen du er super.

flyme >> Jeg skal til møde nu, men jeg er tilbage om et par timer hvis det skulle være nødvendigt. ;-)

Det er flott jeg lurer på en ting til Tjacob. Det er hvordan kan jeg kan åpne filer istedet for å slette, hvis jeg skulle velge fra
FileListBox (File1)
og legge det inn i en richTextbox som heter rText

Private Sub File1_Click()
    sFile = Dir1.Path & "\" & File1.FileName
    rText.Text = rText.Text & vbCrLf & sFile 'lægger filen ind på en ny linie
End Sub

Denne kode (altså rText.... kan du jo også lægge ind i en knap)
Det kan du også med at åbne filen:

Private Sub Command2_Click()
    Dim a
    a = Shell(sFile)
End Sub
Vil åbne filen

NB dette lægger kun selve filNAVNET ind i rtf