eu fiz esse script aki pra mapiar todos os diretorios a partir de um de um diretorio inicial.
Contudo eu estou tendo problemas com os array's
Eu queria saber se ha uma maneira de criar um array sem saber o nº final de "dados" dentro dele pois eu estou tendo que setar isso antes.
<%
dim c
dim d
c = 0
d=0
dim arrFiles(666)
dim arrDir(101)
arrDir© = "D:\MEDIA"
for n = 0 to Ubound(arrDir)
DirMap(arrDir(n))
next
function DirMap(dir)
set ObjDir = Server.CreateObject("scripting.FileSystemObject").GetFolder(dir).SubFolders
for each subDir in ObjDir
c=c+1
arrDir© = subDir.path
next
set ObjDir = nothing
end function
for p = 0 to Ubound(arrDir)
FileMap(arrDir(p))
next
function FileMap(dir)
Set ObjFiles = Server.CreateObject("scripting.FileSystemObject").GetFolder(dir).Files
for each Files in ObjFiles
filepath = files.path
if right(filepath,3) = "mp3" then
arrFiles(d) = filepath
d=d+1
end if
next
set ObjFiles= nothing
end function
for x = 0 to Ubound(arrFiles)
response.write(arrFiles(x)&"<br>")
next
%>
Oque eu queria fazer eh o seguinte:
Mapiar todos os diretorios e coloca-los no array.
Depois procurar por arquivos *.MP3 dentro dos diretorios do array e grava-los no banco de dados.
alguem tah afim de dar uma forcinha
Edição feita por: mikhail, 01/03/2006, 16:02.
