Home
ASP.Net Code Library
ASP Code Library
Javascript Library
SQL Server 2008
Excel Tools
Database Tools
File Management
File And Folder Scanner
Home
ASP Code Library
File Management
Home
ASP Code Library
File Management
File And Folder Scanner
Language::
ASP
Scans a folder for all sub-folders and files.
[show similar options]
<%
@LANGUAGE
=
"JavaScript"
%>
<%
function
ScanFolders
(
objPath
,
iLevel
)
{
var
objFolderInfo
=
objFSO
.
GetFolder
(
objPath
);
var
objFileList
=
new Enumerator
(
objFolderInfo
.
Files
);
var
strIndent
=
""
;
for
(
var
i
=
0
;
i
<
iLevel
;
i
++)
{
strIndent
+=
" "
;
}
Response
.
Write
(
strIndent
+
"<BLOCKQUOTE> "
);
while
(!
objFileList
.
atEnd
())
{
var
strFileName
=
objFileList
.
item
().
Name
;
//
if
(
strFileName
.
indexOf
(
".mdb"
)
!=
-
1
)
/*looks for mdb files only*/
//{
Response
.
Write
(
strIndent
+
" "
+
objFileList
.
item
().
Name
+
"<BR> "
);
//}
//
or
in
a short way
//
Response
.
Write
(
strFileName
.
indexOf
(
".mdb"
)
!=
-
1 ? strIndent
+
" "
+
objFileList
.
item
().
Name
+
"<BR> "
:
""
);
objFileList
.
moveNext
();
}
Response
.
Write
(
strIndent
+
"</BLOCKQUOTE> "
);
var
objSubFolder
=
new Enumerator
(
objFolderInfo
.
SubFolders
);
while
(!
objSubFolder
.
atEnd
())
{
var
thisSubFolder
=
objSubFolder
.
item
();
Response
.
Write
(
strIndent
+
"<BLOCKQUOTE> "
);
Response
.
Write
(
strIndent
+
" <B>"
+
thisSubFolder
.
Name
+
"</B> "
);
iLevel
++;
ScanFolders
(
thisSubFolder
,
iLevel
);
iLevel
--;
Response
.
Write
(
strIndent
+
"</BLOCKQUOTE> "
);
objSubFolder
.
moveNext
();
}
}
var
strPath
=
Server
.
MapPath
(
"."
);
%>
<!
DOCTYPE HTML
PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN"
>
<
HTML
>
<
HEAD
>
<
META
HTTP
-
EQUIV
=
"Content-Type" CONTENT
=
"text/html; charset=windows-1254"
>
<
TITLE
>
File
and
Folder Scanner
</
TITLE
>
<
STYLE
TYPE
=
"text/css"
>
BODY
,
TD
,
FORM
{
font
-
family
:
MS Sans Serif
;
font
-
size
:
8pt
;
}
</
STYLE
>
</
HEAD
>
<
BODY
>
<%
Response
.
Write
(
"<B>"
+
strPath
+
"</B><BR> "
);
var
objFSO
=
new ActiveXObject
(
"Scripting.FileSystemObject"
);
ScanFolders
(
strPath
,
0
);
objFSO
=
null;
%>
</
BODY
>
</
HTML
>
Member Login
|
Contact Us