Получение имен файлов в директории по заданной маске

@Alexey · Регистрация: 27.03.2012

Можно ли это сделать налету с FileSystemObject, если, например, надо вывести все файлы в заданном каталоге которые начинаются на 'text_' и кончаются '.txt'?

@Floyd Rose · 01.07.2008, 15:08

Может что-нить в этом роде:

<script language=javascript runat=server>
function test_file(name){
re=/^text_(w+).txt$/ig;
retVal = ((arr=re.exec(name))!=null) ? 1 : 0;
return retVal;
}
</script>
<%
Set fso = Server.CreateObject('Scripting.FileSystemObject')
''' Some code '''
For Each File In Files
if test(File.Name) then
Response.Write File.Name&'
'
end if
Next
Set fso = nothing
%>

@Alexey · 02.07.2008, 13:02

тогда придется перебирать все файлы, которые есть в директории, чего делать не хочется, так как есть, расчет что там будет много файлов.

@t1k · 02.07.2008, 19:23

Интересно а команда dir перебирает все имена файлов в папке?

<%
Set oShell = CreateObject('Wscript.Shell')

Set oExec = oShell.Exec('cmd /c dir /b /a-d')

Response.Write '<pre>' & oExec.StdOut.ReadAll & '</pre>'
%>

Выведет список файлов в каталоге C:WinNTSystem32

@t1k · 03.07.2008, 17:20

Ну что помогло?

@Alexey 0 / 2 / 3 Регистрация: 27.03.2012
		1
	Получение имен файлов в директории по заданной маске 01.07.2008, 13:32. Показов 1499. Ответов 4 Метки нет (Все метки) Можно ли это сделать налету с FileSystemObject, если, например, надо вывести все файлы в заданном каталоге которые начинаются на 'text_' и кончаются '.txt'? 0

@Floyd Rose 0 / 0 / 1 Регистрация: 04.03.2008 Сообщений: 115
	01.07.2008, 15:08	2
	Может что-нить в этом роде: <script language=javascript runat=server> function test_file(name){ re=/^text_(w+).txt$/ig; retVal = ((arr=re.exec(name))!=null) ? 1 : 0; return retVal; } </script> <% Set fso = Server.CreateObject('Scripting.FileSystemObject') ''' Some code ''' For Each File In Files if test(File.Name) then Response.Write File.Name&' ' end if Next Set fso = nothing %> 0

@Alexey 0 / 2 / 3 Регистрация: 27.03.2012
	02.07.2008, 13:02	3
	тогда придется перебирать все файлы, которые есть в директории, чего делать не хочется, так как есть, расчет что там будет много файлов. 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	02.07.2008, 19:23	4
	Интересно а команда dir перебирает все имена файлов в папке? <% Set oShell = CreateObject('Wscript.Shell') Set oExec = oShell.Exec('cmd /c dir /b /a-d') Response.Write '<pre>' & oExec.StdOut.ReadAll & '</pre>' %> Выведет список файлов в каталоге C:WinNTSystem32 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	03.07.2008, 17:20	5
	Ну что помогло? 0

Опции темы