visualizza cartella

[tigre2209]

Ho una cartella cosi:
CartellaA
e all'interno CartellaB CartellaC CartellaD
con questa pagina visualizzo la cartella:
Ma come posso far visualizzare solo la CartellaB e CartellaC????

Dim unita
Set unita = fso.GetFolder(SERVER.MAPPATH("/cartellaA" &"/"))
For Each File In unita.SubFolders
%>
<tr>
<td width="32" valign="top" class="bordo1"><img src="directory.gif" width="29" height="22"></td>
<td width="81" valign="top" nowrap class="bordo1"><a href="corpo.asp?cartella=<%=File.Name%>"><font class="selec"><%=File.Name%></font></a> </td>
</tr>
<%
Next

 

[Vale2]

Questo è il codice per vedere solo le SubFolder di una Folder

 <%
 Dim f, Subfolder, Folder
 Set f = CreateObject("Scripting.FileSystemObject")
 Set Folder = f.GetFolder(Server.MapPath("[B]Nome_cartella[/B]"))
 For Each Subfolder in Folder.Subfolders
 response.write Subfolder.Name &"<br>"
 Next
 Set Folder = nothing
 Set f = nothing
 %>

Valeria.

 

[tigre2209]

Questo è il codice per vedere solo le SubFolder di una Folder

 <%
 Dim f, Subfolder, Folder
 Set f = CreateObject("Scripting.FileSystemObject")
 Set Folder = f.GetFolder(Server.MapPath("[B]Nome_cartella[/B]"))
 For Each Subfolder in Folder.Subfolders
 response.write Subfolder.Name &"<br>"
 Next
 Set Folder = nothing
 Set f = nothing
 %>

Valeria.

E se devo far visualizzare solo due cartelle ?
Esempio:
io ho una Cartella coi strutturata:
CartellaA

 

[tigre2209]

Questo è il codice per vedere solo le SubFolder di una Folder

 <%
 Dim f, Subfolder, Folder
 Set f = CreateObject("Scripting.FileSystemObject")
 Set Folder = f.GetFolder(Server.MapPath("[B]Nome_cartella[/B]"))
 For Each Subfolder in Folder.Subfolders
 response.write Subfolder.Name &"<br>"
 Next
 Set Folder = nothing
 Set f = nothing
 %>

Valeria.

E se io devo visualizzare solo alcune cartelle?
esempio ho una cartella cosi suddivisa
CartellaA
............CartellaB
............CartellaC
............CartellaD
e dovrei visualizzare solo la CartellaC e CartellaD

 

[Vale2]

E se io devo visualizzare solo alcune cartelle?
esempio ho una cartella cosi suddivisa
CartellaA
............CartellaB
............CartellaC
............CartellaD
e dovrei visualizzare solo la CartellaC e CartellaD

Aggiungi una if dove dichiari se il nome della subfolder è <> da nome_cartella_da_vedere

metti un response.write vuoto ""

o = "nome_cartella" (dipende dalla quantità di sottocartelle da non visualizzare)

<%
 Dim f, Subfolder, Folder
 Set f = CreateObject("Scripting.FileSystemObject")
 Set Folder = f.GetFolder(Server.MapPath("[B]nome_cartella[/B]"))
 For Each Subfolder in Folder.Subfolders
 
 if Subfolder.Name <> "[B]sottocartella1[/B]" and Subfolder.Name <> "[B]sottocartella2[/B]" then
 response.write ""
 
 else
 
 response.write Subfolder.Name &"<br>"

 end if 

 Next
 Set Folder = nothing
 Set f = nothing
 %>

Ora vedi solo se subfolder sottocartella1 e sottocartella2

Valeria.