[Resolvido] combofolder

[xanburzum 169]

COMBOFOLDER

 

<% 
Dim fso, f, f1, fc ,diretorio

diretorio = "c:\inetpub\wwwroot"	  'Aqui o diretório principal 
Set fso = CreateObject("Scripting.FileSystemObject") 

   IF fso.FolderExists(diretorio) Then 
	  Set f = fso.GetFolder(diretorio) 
	  '----------------------------------------------- 
	  ' lista os subdiretórios do diretório principal 
	  '----------------------------------------------- 
	  response.write "<select><br>" 
	  For Each Item in f.Subfolders 
		 response.write "<option value="& item.Name &">"& item.Name &"</option><br>" 
	  Next 
	  response.write "</select>" 
   End IF 

%>

==========================

 

com FSO APARTIR DE UM ARQUIVO TEXTO

 

<FORM NAME=MYFORM>
	<SELECT NAME=LBTEST>
	<%
	'Declare variables
	dim fso, ofile, ldata
	'Open the text data file
	Set fso = CreateObject("Scripting.FileSystemObject") 
	Set fsofile = fso.OpenTextFile("c:\texo.txt", 1)
	'Read the file contents line by line and
	'	 add to listbox
	Do While not fsofile.AtEndOfStream 
	ldata = fsofile.ReadLine
	Response.Write "<OPTION VALUE=""" & ldata & """>" & ldata
	Loop
	oFile.Close
	set ofile=nothing
	set fso=nothing
	%>
	</SELECT>
	</FORM>