Bu asp dersimizde fso ile listeleme işlemlerin göreceğiz. Bunu için örnek bir uygulama hazırlayalım . Örnek uygulama:
<% 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 Sorry
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
%>
Satır Sonu
<% 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 Sorry
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
%>
Satır Sonu
