diff --git a/VECTO/File Browser/FileBrowserDialog.vb b/VECTO/File Browser/FileBrowserDialog.vb
index 444f2672cc05b5a36bb15fc4ee89e109e54e9298..330397ea1a612aebc0e45fe5d555faa5d106efa2 100644
--- a/VECTO/File Browser/FileBrowserDialog.vb	
+++ b/VECTO/File Browser/FileBrowserDialog.vb	
@@ -827,12 +827,12 @@ Public Class FileBrowserDialog
 		Try
 			'Add Folder
 			Dim di As New DirectoryInfo(_myFolder)
-			Dim aryFi As FileInfo()
+			'Dim aryFi As FileInfo()
 			Dim fi As FileInfo
-			Dim x = -1
+			Dim x = ImageList1.Images.Count - 1
 			For Each SearchExt In extStr
 				Dim searchPat = "*" & Trim(searchFile) & "*." & Trim(SearchExt)
-				aryFi = di.GetFiles(searchPat)
+				Dim aryFi = di.GetFiles(searchPat)
 				For Each fi In aryFi
 					x += 1
 					Dim shinfo = New SHFILEINFO()