Jag öppnar textfilerna via CommonDialog2 med .Bok2 som filändelse
Öppnar (Open) en textfil som lägges i en txtbox benämnd TxtBokensNamn1
Får MsgBox där jag verkställer delete av filen. En Label3 som var inställd på False visar då Label3.Visible = True. Hela momentet med att ta bort filerna funkade i början klockrent, men har upphört nu. ???



'Början på koden

Private Sub Radera_Click()
MsgBox "Raderar boktitel."
CommonDialog2.ShowOpen
If CommonDialog2.FileName = "" Then Exit Sub
Open CommonDialog2.FileName For Input As #1
Line Input #1, Använd
TxtBokensNamn1 = Använd
'
'
'och en del data som läses in från en utvald txtfil (filändelse .Bok2) till olika checkboxar m.fl.
'
'
'Slutet på koden

CommonDialog2.FileName = ""
Dim FileName As String
MsgBox ("Raderar valda Bok2.....")
FileName = App.Path & ""
If Dir(FileName) <> "" Then Kill TxtBokensNamn1.text & ".Bok2"
Label3.Visible = True

End Sub


Mvh
Kenneth

Har bortsett från ej grej. Jag testade den separat utanför programmet. När den las in i programmet beaktade jag inte att txt filerna låg öppna mot programmet. Därför blev de sas låsta. Måste kill i en sep .exe fil.

Nähä gick inte så bra. Applikationen måste tydligen inte ligga i samma mapp som övrig applikation etc.

Ska prova vidare.....

Mvh

FileName = App.Path & ""
If Dir(FileName) <> "" Then Kill TxtBokensNamn1.text & ".Bok2"

Ser konstigt ut. Så här skulle jag vilja ha det.
Sedan måste filen vara Close#1 om du skall få tillåtelse att "Killa"
MsgBoxen gör ingen nytta ,du kan ju inte avbryta som du nu skrivet.
<code>
FileName = App.Path & "\"
If Dir(FileName) <> "" Then Kill TxtBokensNamn1.txt & ".Bok2"
</code>