Count Files In a directory

[lorena]

I have several pages that are supposed to list all the files that are .pdf files in a certain directory.
For some reason, the page displays one less file than is actually in the directory.
What am I doing wrong?
Here is my code:

Sub BindGrid()
				Dim dirInfo As New System.IO.DirectoryInfo(Server.MapPath("/p1/Docs/JobOrders/6500 - 6599"))
				Dim arrFileInfo As Array
				Dim filesInfo As System.IO.FileInfo

				Dim filesTable As New DataTable()
				Dim drFiles As DataRow
				Dim dvFiles As DataView
				Dim ofn, ext As String
				Dim charCt, fileCt As Integer

				filesTable.Columns.Add("Name", Type.GetType("System.String"))
				filesTable.Columns.Add("LastWriteTime", Type.GetType("System.DateTime"))

				arrFileInfo = dirInfo.GetFiles("*.pdf")

				fileCt = 0
				For Each filesInfo In arrFileInfo
					drFiles = filesTable.NewRow()
					ofn = filesInfo.Name
					ext = Right(ofn, 4)
					charCt = InStr(ofn, ".") - 1
					ofn = Mid(ofn, 1, charCt)
					drFiles("Name") = ofn
					drFiles("LastWriteTime") = filesInfo.LastWriteTime
					filesTable.Rows.Add(drFiles)
					fileCt += 1
				Next filesInfo

				dvFiles = filesTable.DefaultView
				If SortAscending then
					dvFiles.Sort = SortExpression & " ASC" 
				Else
					dvFiles.Sort = SortExpression & " DESC" 
				End If

				dgFiles.DataSource = dvFiles
				
				dgFiles.DataBind()
				If fileCt < 51 Then
					GridPagerVisibility(False)
				Else
					GridPagerVisibility(True)
				End If
				lblyourmom.text = fileCt
			End Sub

 

[lorena]

Never mind - page works fine. One of the folks entering the files into the directory was putting periods in the filenames.

 

[Cags]

Using LastIndexOf to get the charCt should solve that problem. Or alternatively you could use the System.IO.Path.GetFileNameWithoutExtension() method.