FSO ile dosya veya klasör oluşturmak, silmek ve güncellemek

ASP’de kodlar ile dosya oluşturabilir, silebilir ve güncelleyebilirsiniz. Aynı şekilde yeni klasörler açabilir, silebilirsiniz. Bunun için FSO (File System Object) adında nesne kullanılmaktadır. Bir dosya ya da klasör oluşturma işlemini yapmadan önce, bunların bulunacağı dizinin yazma izninin olmasını sağlayın. Bunun için server ya da bilgisayarınızda klasöre sağ tıklayıp güvenlik sekmesinden everyone kullanıcısı ya da siteyi kullanan iis user için yazma ve değiştirme (write, modify) izni verin. Plesk panelini kullananlar için bu işlem daha kolay şekilde yapılabilir. Aşağıda aspyegiris.asp dosyası kategori klasörüne kaydediliyor. FSO nesnesinin Createfile özelliği kullanılarak yapılan bu işlem için dizin yolu gerekli. Eğer bu yolu bilmiyorsanız, herhangi bir sayfada Server Veriables değerlerinden <%=Request.ServerVariables(“APPL_PHYSICAL_PATH”)%> kodu ile görebilirsiniz.
<%xpath=”aspyegiris.asp”
set fso = createobject(“scripting.filesystemobject”)
file_being_created=”https://www.ertandonmez.org/kategori/” & xpath
Set act = fso.CreateTextFile(“C:/Inetpub/vhosts/ertandonmez.com/httpdocs/kategori/” & xpath, true)
xyazi=EncodeHtml(icerik()) ‘ içerik fonksiyonu ile herhangi bir yazı getiriyoruz
act.WriteLine(xyazi)
act.close%>
Bu dosya içeriğini güncellemek için aynı dosya adını kullanmanız yeterli. Yani yukardaki kodları bir kez daha çalıştırırsanız dosya içeriği de ismi aynı kalmak suretiyle değişecektir.
Bu dosyayı silmek için ise FSO.DeleteFile kodu kullanılarak yapılmaktadır. Aşağıdaki örnekte olduğu gibi bu işlemi yapmadan önce dosyanın var olup olmadığını da FileExists ile kontrol edebilirsiniz.
<%dosya=”C:/Inetpub/vhosts/ertandonmez.com/httpdocs/kategori/aspyegiris.asp”
Set fso= Server.CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(dosya) Then
FSO.DeleteFile(dosya)
End If%>
Şimdi de bir klasör yaratalım. Klasörü oluşturmak için CreateFolder kodu kullanılır. Aşağıda kategori klasörü altında asp klasörü oluşturuldu.
<%Set fso= Server.CreateObject(“Scripting.FileSystemObject”)
set dr = fso.CreateFolder(“C:/Inetpub/vhosts/ertandonmez.com/httpdocs/kategori/asp”)
%>
Klasör silmek için ise kullanılan kod:
<%strklasor=”C:/Inetpub/vhosts/ertandonmez.com/httpdocs/kategori/asp”
Set FSO = Server.CreateObject(“Scripting.FileSystemObject”)
If FSO.FolderExists(strKlasor) Then
FSO.DeleteFolder(strKlasor)
End If%>
şeklindedir.
aspkodlari.com alıntıdır.