Bu asp dersimizde fso ile listeleme işlemlerin göreceğiz. Bunu için örnek bir uygulama hazırlayalım . Örnek uygulama: Kod: <% On Error Resume Next strAnadizin = “C:\” strLog = Server.MapPath(”log/”) Set objFso = Server.CreateObject(”Scripting.FileSystemObject”) Set objYaz = objFso.CreateTextFile(strLog & date() & “.htm”, True) objYaz.WriteLine(”<body bgcolor=”"#FFFFFF”" text=”"#000000″”>”) objYaz.close Set objFd = objFso.GetFolder(strAnadizin) Set objFd2 = objFd.SubFolders Call Log(”<img src=”"folder.gif”">” & strAnadizin & “<br>”) ‘ Call ShowFolderList(strAnadizin) For Each f2 in objFd2 strDosya = “<img src=”"nokta.gif”"><img src=”"folder.gif”">” & strAnadizin & “\” & f2.name Call Log(strDosya & “<br>”) ‘Dosyalary log’a kaydediyoruz. Call ShowFolderList(strAnadizin & “\” & f2.name) Call ShowDizinleri(strAnadizin & “\” & f2.name) Next Sub ShowFolderList(strDizinAdi) Set objF = objFso.GetFolder(strDizinAdi) Set objFc = objF.Files ‘Dizindeki dosyalary buluyoruz For Each f1 in objFc Call Log(”<img src=”"nokta.gif”"><img src=”"nokta.gif”"><img src=”"text2.gif”"><a href=’” & strDizinAdi & “\” & f1.name & “‘>” & f1.name & “</a><br>”) ‘Loga kayıt ediyoruz. Next End Sub Sub ShowDizinleri(strDizinAdi) Set objFd = objFso.GetFolder(strDizinAdi) ‘Dizini hazırladık Set objFd2 = objFd.SubFolders ‘Alt dizinleri listeliyoruz For Each f2 in objFd2 ‘Her dizini; strDosya = “<img src=”"nokta.gif”"><img src=”"folder.gif”"><a href=’” & strDizinAdi & “\” & f2.name & “‘>” & strDizinAdi & “\” & f2.name & “</a>” Call Log(strDosya & “<br>”) ‘Loga kayıt ediyoruz Call ShowFolderList(strDizinAdi & “\” & f2.name) ‘ If Not strDizinAdi = “” Then Call ShowDizinleri(strDizinAdi & “\” & f2.name) End if Next End Sub Sub Log(Gelen) Set SFSO = Server.CreateObject(”Scripting.FileSystemObject”) Set yaz = SFSO.OpenTextFile(strLog & date() & “.htm”, 8, 0) yaz.WriteLine(Gelen) yaz.Close End Sub %>
