Bestemme hvilket dir

hvordan kan jeg bestemme hvilket dir der skal tages
eg. /images/dir1

sub displayFolders(objFolder, _
                  bolRecurseDirectories, _
                  level)
                 
If Not Left(objFolder.Name,1) = "_" then
  'Recurse through the folder's subdirectories if needed
  If bolRecurseDirectories then
    For Each objSubFolder in objFolder.SubFolders
     
      dir1= replace(objFolder,rodbillede,"")
      dir2= replace(dir1,"\","/")
      FolderName = dir2 &"/"& objSubFolder.Name
      FolderName2 = objSubFolder.Name
         
      if FolderName2 <> "_thumb" then
      Set rs = Connect.Execute("SELECT * FROM folder WHERE foldersti = '" & FolderName & "' ")
      if rs.eof then
     
      SQL = "insert into folder (foldersti) Values('"& FolderName &"')"
      response.write (SQL)&"<BR>"
      Connect.Execute(SQL)
      end if
      end if
     
      displayFolders objSubFolder, bolRecurseDirectories, level+1
    Next
    End If
set rs = nothing
End If
end sub