newbie need help with files

[Dan Luik]

hi all

I have a small random acces file, that is used to add information about different people, age name, etc

what i need to do is accomadate for deletion of players. I have read that this is a soloution:

copy all records except the one to delete to a new file, delete the old file and rename the new one to the same as the old one.

can someone help with the code to do this. many thanks


kind regards

Dan

[Dan Luik]

ok this is what i guessin it would be something like

Private Sub cmdDeletePlayer_Click()
Dim onerecord
Dim copyrecord
Open FileNameForPlayers For Random As #1 Len = Len(onerecord)
While Not EOF(1)
Get #1, , onerecord
'if this record <> the deleted one then
Open FileNameForPlayers2 For Random As #2 Len = Len(onerecord)
Put #2, , copyrecord
Close #2
Loop
Close #1

'somehow delete FileNameForPlayers *******
'somehow rename FileNameForPlayers2 to what FileNameForPlayers was. ******
End Sub


i dont know how to do ************bits

pls help

[Dan Luik]

does anyone have any ideas? im at a dead end.

regards

Dan

[John McKernan]

Is something like this what you are looking for?

To delete original file:

Kill filenameforplayers

To rename temporary file:

Name filenameforplayers2 As filenameforplayers

[Dan Luik]

@john
you star thats exactly what i needed. This code now works, is this common practice

Private Sub cmdDeletePlayer_Click()
Dim onerecord As PlayerType
Dim filenameforplayers2 As String
Dim numberofrecords2 As Integer
filenameforplayers2 = "C:\My Documents\playerdetails2.dat"

Open FileNameForPlayers For Random As #1 Len = Len(onerecord)
Do While Not EOF(1)
Get #1, , onerecord
'if this record <> the deleted one then
Open filenameforplayers2 For Random As #2 Len = Len(onerecord)
Put #2, numberofrecords2 + 1, onerecord
Close #2
numberofrecords2 = numberofrecords2 + 1
Loop
Close #1

Kill FileNameForPlayers 'somehow delete FileNameForPlayers
Name filenameforplayers2 As FileNameForPlayers '
End Sub

Thanks again, it would be much appreciated if this style is ok

regards

Dan

[John McKernan]

Looks fine. Glad to be of help.

By the way, the tags for formatting your code in vb-style are vbcode and /vbcode in square brackets