How you named this file?
That codes just count how many .mdb files and we don't know which file in position #4.
Actualy the Dir Function will listed and arrange the file in ascending type and order by they name.
As i said before that we can't determine which file in position 4.
But the files always be arranged in ascending order by they name.
Say the number of files is 4 and you want to delete the file in postion 4 (the last file).
I try to put the files in listbox and accessing it by list index.
Private Sub Form_Load()
Dim strPath As String
Dim strFile As String
Dim FileCount As Integer
FileCount = 0
strPath = App.Path & "\backup\backup
strFile = Dir(strPath & "*.mdb")
Do Until strFile = ""
FileCount = FileCount + 1
List1.AddItem strPath & "\" & strFile
strFile = Dir
MsgBox FileCount & " file(s)"
Private Sub Command1_Click()
Kill List1.List(List1.ListCount - 1)
i am trying to create a library management system which is supposed to be used to store/keep infp for the library and the library members( book title, author, name and picture for borrower and other stuffs). The app has 6 buttons, delete, save, add,previsous,next, and upload( for upload ...