<% '============================================================== ' TableEditoR 0.81 Beta ' http://www.2enetworx.com/dev/projects/tableeditor.asp '-------------------------------------------------------------- ' File: te_listDBs.asp ' Description: List mdb database files on the server ' Initiated By Rami Kattan on May 10, 2002 '-------------------------------------------------------------- ' Copyright (c) 2002, 2eNetWorX/dev. ' ' TableEditoR is distributed with General Public License. ' Any derivatives of this software must remain OpenSource and ' must be distributed at no charge. ' (See license.txt for additional information) ' ' See Credits.txt for the list of contributors. ' ' Change Log: '-------------------------------------------------------------- '============================================================== %> <% dbFolder = request.form("Base_Loc") LastCurrentFolder = request.form("CurrentFolder") if LastCurrentFolder = "/" then LastCurrentFolder = "" if instr(dbFolder, "..") then dbFolder = "" if dbFolder = "" then dbFolder = request.form("folder") num_files = 0 strDBs = "" ' Added by Hakan on May 11, 2002 dbFolder = replace(dbFolder, "\", "/") if dbFolder = "" then dbFolder = "/" 'if first view, get virtual root path if dbFolder <> "/" AND right(dbFolder, 1) = "/" then dbFolder = left(dbFolder, len(dbFolder)-1) if dbFolder <> "/" AND left(dbFolder, 1) <> "/" then dbFolder = LastCurrentFolder & "/" & dbFolder function formatSize(filesize) formatSize = FormatNumber(filesize/1000, 0) end function folder_found = true Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(Server.MapPath(dbFolder)) = false Then response.write "Folder '" & dbFolder & "' not found...
" dbFolder = LastCurrentFolder folder_found = false end if Set theCurrentFolder = fso.GetFolder(Server.MapPath(dbFolder)) Set inFolders = theCurrentFolder.SubFolders if dbFolder <> "/" then upFolder = left(dbFolder, inStrRev(dbFolder, "/")-1) if upFolder = "" then upFolder = "/" strDBs = "../" & "" & vbCrLf StateImageTruth = true end if if dbFolder = "/" then dbFolder = "" For Each folder in inFolders strDBs = strDBs & "" & ucase(folder.name) & vbCrLf Next Set curFiles = theCurrentFolder.Files strDesc = "" For Each fileItem in curFiles fname = fileItem.Name fext = InStrRev( fname, "." ) If fext < 1 Then fext = "" Else fext = Mid(fname,fext+1) if fext = "mdb" and fname <> "te_admin.mdb" and fname <> "teadmin.mdb" then fileClass = "mdbNew" for each FClass in arrDBs if instr(ucase(FClass), ucase(fname)) > 0 then fileClass = "mdbExist" exit for end if next fname = lcase(fname) & "     (" & formatSize(fileItem.size) & " KB)" strDBs = strDBs & "" & fname & "" & vbCrLf num_files = num_files + 1 end if Next set curFiles = nothing set theCurrentFolder = nothing set fso = nothing if dbFolder = "" then dbFolder = "/" btnDisabled = " disabled" if StateImageTruth then StateImage = "s1" else StateImage = "s3" end if if isIE then PageBGColor = "buttonface" else PageBGColor = "#D6D3CE" end if %> <% if bAdmin = False then response.write "Not authorized to view this connection." %><% response.end end if %>

Table Editor Administration » Select Database

Looking in:
Enter virtual folder:
or Select from list: <% =strDBs %>
Filename:		>
Files of type:	Microsoft Access (*.mdb)
	Database is password protected.
<% response.write "Found " & num_files & " database file" if num_files > 1 then response.write "s" response.write "." %>
Color Codes:	Folder | Similar filename already exist | New filename

---

Visit 2eNetWorX for more OpenSource VB and ASP Projects.