I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
yaro
yaro
l'1 febbraio 2005 alle 11:50
48 messaggi dal 22 febbraio 2004
ciao ho questo problema:

davo farmi dare i nomi dei file dentro una cartella che iniziano con abc (cioè che iniziano solo con queste 3 lettere)

il codiche che ho adesso è:

Dim objFso, folder, files, file
Set objFso=Server.CreateObject("scripting.FileSystemObject")

Set folder= objFso.getFolder("c:\inetpub\wwwroot\piazzaerbe\foto")
Set files=folder.files

y=0
redim Preserve folderfile(y)
for each file in files
y=y+1
redim Preserve folderfile(y)
folderfile(y)=file.name
response.Write(folderfile(y)&"<br>")

next


dove prelevo tutti i nomi e li metto in una array!
ma come faccio a farmi dare solo qui nomi che iniziano con abc??

grazie!
RispondiQuoting
albinet
albinet
l'1 febbraio 2005 alle 21:49
26 messaggi dal 12 marzo 2001
www.albnet.eu
Sono sempre io...

Dim objFso, folder, files, file 
Set objFso=Server.CreateObject("scripting.FileSystemObject") 

Set folder= objFso.getFolder("c:\inetpub\wwwroot\piazzaerbe\foto") 
Set files=folder.files 

y=0 
for each file in files 
if Left(LCase(file.name), 3) = "abc" then
redim Preserve folderfile(y) 
folderfile(y)=file.name 
y=y+1
response.Write(folderfile(y)&"<br>") 
end if
next
Albnet
http://www.albnet.eu/
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.