Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
FSO ya Giriş.....(FileSystemObject)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Güzel bi çalışma elllerine sağlık asp ile ilgilenenlerin ve öğrenmek isteyenlerin çok işine yarayacaktır 
-
soyturk eline sağlık FSO konusu gerçekten faydalı bir konu..http://www.fsomanual.com/ adresinde de nerdeyse fso ile ilgili herşey var hem türkçe hemde çok güzel anlatılmış.. -
devam Ediyoruz....
DriveExists
Belirttiğiniz sürücünün var olup olmadığını test eder. Eğer var ise True yoksa False değeri döndürür.
FSO.DriveExists("Sürücü Harfi")
Verilecek değer Windows'un sürücüleri isimlendirme kurallarına uymalıdır. Yani bir sürücüyü ifade etmek için harf kullanmalısınız. Aksi takdirde çıktı olarak her zaman False değeri döndürür.
<%
Response.Write FSO.DriveExists("C")
%>
Ekrana True yazdıracaktır.
<%
Response.Write FSO.DriveExists("Z")
%>
Eğer hard diskinizi paramparça etmediyseniz False değeri döndürecektir. :)))))
Sürücü harfini tek başına yada önüne : veya :\ veya :/ konmuş şekilde kullanabilirsiniz.
<%
FSO.DriveExists("C")
FSO.DriveExists("C:")
FSO.DriveExists("C:\")
FSO.DriveExists("C:/")
%>
Yukarıdaki kullanımların hepsi geçerlidir.
Küçük bir örnek.
<%
Set Suruculer = FSO.Drives
For Each Surucu in Suruculer
If FSO.DriveExists(Surucu.DriveLetter) Then
Response.Write Surucu.DriveLetter & "sürücüsü hazır"
Else
Response.Write Surucu.DriveLetter & "sürücüsü hazır değil"
End If
Next
%>
FileExists
Verdiğiniz bir dosyanın var olup olmadığını denetler. Var ise True yoksa False değeri döndürür.
FSO.FileExists("Dosya İsmi")
<%
If FSO.FileExists("C:\Deneme.txt") = True Then
Response.Write "dosya var"
Else
Response.Write "dosya yok"
End If
%>
FolderExists
Verdiğiniz bir klasörün var olup olmadığını denetler. Var ise True yoksa False değeri döndürür.
FSO.FolderExists("Klasör İsmi")
<%
If FSO.FolderExists("C:\Inetpub\wwwroot\Deneme") = True Then
Response.Write "klasör var"
Else
Response.Write "klasör yok"
End If
%>
GetAbsolutePathName
Verdiğiniz bir yol için sürücünün root dizininden Windows isimlendirme kuralına göre tam yolu getirir. Verdiğiniz yolun geçerli olup olmaması yada Windows standartlarına uyması önemli değildir. Çünkü bu metot string üzerinde işlem yapar.
FSO.GetAbsolutePathName("yol")
<%
Response.Write FSO.GetAbsolutePathName("C:\Inetpub\wwwroot")
Response.Write FSO.GetAbsolutePathName("C:\Inetpub\wwwroot\")
Response.Write FSO.GetAbsolutePathName("C:\Inetpub\wwwroot/")
Response.Write FSO.GetAbsolutePathName("C:/Inetpub/wwwroot/")
%>
Hepsinin de çıktısı "C:\Inetpub\wwwroot" şeklinde olur.
<%
Response.Write FSO.GetAbsolutePathName("C:\Metin/Aksu/deneme.abcdefg")
%>
Çıktısı "C:\Metin\Aksu\deneme.abcdefg" şeklinde olur.
<%
Response.Write FSO.GetAbsolutePathName(Server.Mappath("/Deneme"))
%>
Çıktısı "C:\Inetpub\wwwroot\Deneme" olur.
GetBaseName
Verdiğiniz bir yoldaki dosya yada klasörün taban adını getirir. Verdiğiniz yolun geçerli olması yada Windows standartlarına uyması önemli değildir. Çünkü bu metotta string üzerinde işlem yapar.
FSO.GetBaseName("yol")
<%
Response.Write FSO.GetBaseName("C:\Metin\Aksu\deneme\index")
Response.Write FSO.GetBaseName("C:\Metin\Aksu\deneme\index\")
Response.Write FSO.GetBaseName("C:\Metin\Aksu\deneme\index.asp")
Response.Write FSO.GetBaseName("C:\Metin\Aksu\deneme\index.asp\")
Response.Write FSO.GetBaseName("deneme\index\")
Response.Write FSO.GetBaseName("deneme\index.asp")
Response.Write FSO.GetBaseName("index.asp")
Response.Write FSO.GetBaseName(Server.Mappath("index"))
Response.Write FSO.GetBaseName(Server.Mappath("index.asp"))
%>
Hepsinin çıktısı "index" olur.
GetDrive
Verdiğiniz bir sürücü harfi için o harfe sahip sürücü üzerinde işlemler yapılabilen bir sürücü nesnesi döndürür. Sürücü geçerli olmalıdır.
Set Surucu = FSO.GetDrive("Sürücü Harfi")
Bu konunun ayrıntılarını "FSO ile sürücü işlemleri" konusuna bırakıp geçiyoruz.
GetDriveName
Verdiğiniz bir yol stringi için sürücü harfini içeren bir string döndürür. Verdiğiniz yolun geçerli olması önemli değildir. Ancak sürücü harfinden sonra (:) olmalıdır.
FSO.GetDriveName("Yol")
<%
Response.Write FSO.GetDriveName("z:")
Response.Write FSO.GetDriveName("z:\")
Response.Write FSO.GetDriveName("z:/")
Response.Write FSO.GetDriveName("z:\sfgjcvmnc")
Response.Write FSO.GetDriveName("z:sfgjcvmnc")
Response.Write FSO.GetDriveName("z:/sfghdf")
%>
Hepsinin çıktısı "z:" olur.
<%
Response.Write FSO.GetDriveName(Server.Mappath("/"))
%>
Çıktısı "C:" olur.
NOT : Siz bu şekilde bir yol ifadesi için sürücü harfini aldığınız gibi GetFile ile oluşturulmuş dosya nesnesinin veya GetFolder ile oluşturulmuş klasör nesnesinin Drive özelliği ile de sürücü harfini alabilirsiniz. Ama bu yöntemde yol ifadesi dolayısıyla dosya veya klasör geçerli, yani var olmalıdır.
<%
Set Klasor = FSO.GetFolder("C:\Deneme\Metin\")
Response.Write Klasor.Drive
%>
Çıktısı "C:" olur.
<%
Set Dosya = FSO.GetFile("C:\Deneme\Metin\index.asp")
Response.Write Dosya.Drive
%>
Çıktısı "C:" olur.
GetExtensionName
Verdiğiniz string içinde en son bileşenin uzantısını verir. Verdiğiniz stringin geçerli bir yol ifadesi olması yada dosya uzantısının geçerli bir uzantı olması gerekmez. Kısacası verdiğiniz string içindeki son noktadan sonraki kısmı verir.
FSO.GetExtensionName("string")
<%
Response.Write FSO.GetExtensionName("C:\Deneme\index.asp")
%>
Çıktısı "asp"
<%
Response.Write FSO.GetExtensionName("C:\Deneme\index.metin")
%>
Çıktısı "metin"
<%
Response.Write FSO.GetExtensionName("ahmet\mehmet\süleyman.hilmi")
%>
Çıktısı "hilmi"
<%
Response.Write FSO.GetExtensionName("ahmet\mehmet\süleyman.hilmi.fikri.zikri")
%>
Çıktısı "zikri"
GetFile
Belirttiğiniz bir dosya için üzerinde işlemler yapılabilen bir dosya nesnesi oluşturur. Dosya geçerli olmalıdır.
Set Dosya = FSO.GetFile("Dosya Yolu")
Bu konunun ayrıntılarını "FSO ile dosya işlemleri" konusuna bırakıp geçiyoruz.
GetFileName
Verdiğiniz bir string ifadesi içinde ki en son bileşenin uzantısıyla beraber ismini verir. Eğer uzantı yoksa sadece ismini verir. GetBaseName dosya ismini veriyor, uzantısını vermiyordu. GetFileName uzantısıyla beraber dosya ismini verir. Verdiğiniz stringin geçerli bir yol ifadesi olması gerekmez. Bu yöntemde string üzerinde işlem yapar.
FSO.GetFileName("İfade")
<%
Response.Write FSO.GetFileName("C:\Deneme\index.asp")
Response.Write FSO.GetFileName("C:\Deneme\index.asp\")
Response.Write FSO.GetFileName("sf4574356754\index.asp")
%>
Çıktıları "index.asp" olur.
<%
Response.Write FSO.GetFileName("C:\Deneme\index")
Response.Write FSO.GetFileName("C:\Deneme\index\")
Response.Write FSO.GetFileName("sf4574356754\index")
%>
Çıktıları "index" olur.
GetFileVersion
Exe, dll gibi dosya versiyonu bilgisini taşıyan dosyalarda dosyanın sürüm numarasını verir. Verilen dosya yolu ifadesi geçerli olmalıdır. Eğer yol geçerli değilse yada dosya sürüm bilgisi taşımıyorsa boş değer döner.
FSO.GetFileVersion("Dosya Yolu")
<%
Response.Write FSO.GetFileVersion("C:\Program Files\Ahead\Nero\AudioPluginMgr.dll")
%>
Benim sistemimde çıktısı "2.0.0.2" şeklinde.
<%
Response.Write FSO.GetFileVersion("C:\Program Files\Ahead\Nero\nero.exe")
%>
Çıktı "5.5.9.9" şeklinde.
GetFolder
Belirttiğiniz bir klasör için üzerinde işlemler yapılabilen bir klasör nesnesi oluşturur. Klasör geçerli olmalıdır.
Set Klasor = FSO.GetFolder("Klasör Yolu")
Bu konunun ayrıntılarını "FSO ile klasör işlemleri" konusuna bırakıp geçiyoruz.
GetParentFolderName
Verdiğiniz bir yol ifadesi için o yolun en son dosyasının veya klasörünün içinde bulunduğu klasör ismini döndürür. Yol ifadesinin geçerli olması gerekmez.
FSO.GetParentFolderName("Yol")
<%
Response.Write FSO.GetParentFolderName("C:\Metin\Aksu\index.asp")
Response.Write FSO.GetParentFolderName("C:\Metin\Aksu/index.xghdmhgghf")
%>
Her ikisinin de çıktısı "C:\Metin\Aksu" olur.
<%
Response.Write FSO.GetParentFolderName("C:\Metin\Aksu")
Response.Write FSO.GetParentFolderName("C:\Metin\Aksu\")
Response.Write FSO.GetParentFolderName("C:\Metin\Aksu/")
%>
Üçünün de çıktısı "C:\Metin" olur.
<%
Response.Write FSO.GetParentFolderName("Giresun\Metin\Aksu")
Response.Write FSO.GetParentFolderName("Giresun\Metin\Aksu\")
%>
Çıktıları "Giresun\Metin" olur.
Siz bu şekilde bir yol ifadesi için ana dizini aldığınız gibi GetFile ile oluşturulmuş dosya nesnesinin veya GetFolder ile oluşturulmuş klasör nesnesinin ParentFolder özelliği ile de ana dizini alabilirsiniz. Ama bu yöntemde yol ifadesi dolayısıyla dosya veya klasör geçerli, yani var olmalıdır.
<%
Set Dosya = FSO.GetFile("C:\Deneme\Deneme.txt\")
Response.Write Dosya.ParentFolder
%>
Çıktısı "C:\Deneme" olur.
<%
Set Klasor = FSO.GetFolder("C:\Deneme\Metin")
Response.Write Klasor.ParentFolder
%>
Çıktısı "C:\Deneme" olur.
GetSpecialFolder
Vereceğiniz 0,1 veya 2 sayısı için Windows özel dizinlerini döndürür. Bu üç sayı dışında argüman kabul etmez.
FSO.GetSpecialFolder(sayı)
0 = "C:\WINDOWS"
1 = "C:\WINDOWS\system32"
2 = "C:\WINDOWS\Temp"
<%
Response.Write FSO.GetSpecialFolder(1)
%>
Çıktısı "C:\WINDOWS\system32" olur.
GetTempName
Geçici bir dosya için .tmp uzantılı rastgele bir dosya adı üretir. Dosya ismi başında "rad" sözcüğü bulunur. Bu rastgele uzantılı dosya oluşturulmaz. Sadece dosya adı üretir. Siz bu ismi CreateTextFile ile dosya oluştururken kullanabilirsiniz.
FSO.GetTempName
<%
Response.Write FSO.GetTempName
%>
Çıktısı "A9932" kısmı her seferinde değişmek kaydıyla "radA9932.tmp" gibi olur.
MoveFile
Verdiğiniz bir veya daha fazla dosyayı belirttiğiniz klasöre taşır.
FSO.MoveFile KaynakDosya(lar), Hedef
Kaynak Dosya tek veya joker karakterle belirlediğiniz birden çok dosya, Hedef ise bunların taşınacağı klasördür. Eğer taşımaya çalıştığınız dosyalar hedef klasörde zaten var ise hata verir ve taşınmaz.
<%
FSO.MoveFile "C:\*.*", "C:\Deneme"
'veya
FSO.MoveFile "C:\*.*", "C:\Deneme\"
%>
Her iki kodda C sürücüsündeki tüm dosyaları Deneme klasörüne taşır.
<%
FSO.MoveFile "C:\deneme.txt", "C:\Deneme\"
%>
C sürücüsündeki "deneme.txt" dosyasını "Deneme" klasörüne aynı isimle taşır.
<%
FSO.MoveFile "C:\deneme.txt", "C:\Deneme\index.asp"
%>
C sürücüsündeki "deneme.txt" dosyasını "Deneme" klasörüne index.asp ismiyle taşır. Yani farklı kaydetmiş olursunuz.
CopyFile konusunda okuduğunuz gibi joker karakterleri kullanarak taşınacak dosyalar için farklı seçenekler oluşturabilirsiniz.
MoveFolder
Bir veya daha çok klasörü vereceğiniz bir hedef klasöre taşır.
FSO.MoveFolder TaşınacakKlasör(ler), Hedef
Bu kodun kullanımında birkaç küçük ayrıntı var. Örneklerle görelim.
<%
FSO.MoveFolder "C:\Deneme\a", "C:\Deneme\b\"
%>
a klasörünü aynı dizindeki b klasörü içine taşır. Bu işlem için taşınacak kaynak klasörü belirtirken sonuna slash(\) koymuyoruz. Koyarsak yol bulunamadı hatası verir. Taşınacak klasör için bu sınırlama yok. "C:\Deneme\b" yada "C:\Deneme\b\" şeklinde yazabilirsiniz.
<%
FSO.MoveFolder "C:\Deneme\a\*", "C:\Deneme\b\"
%>
a klasörü içindeki alt klasörleri b klasörüne taşır. a klasörünün kendisi ve içindeki dosyaları ise taşımaz. Tabi yine kaynak klasörü belirtirken sonuna slash koymuyoruz.
-
<%
dir = "c:\"
dosya = "üyeler"
Set FSO = CreateObject("Scripting.FileSystemObject")
YeniYol = FSO.BuildPath(dir,dosya)
%>
yapıyorum dosya oluşturulmuyor atladığım bir noktamı var..!
"" işaretinide denedim ""&dir&"" gibi
< Bu mesaj bu kişi tarafından değiştirildi SaLVaDoR -- 25 Temmuz 2005, 22:22:08 > -
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<html>
<body><%
dir = server.mappath("dizin")&"\"
dosya = "1"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set YeniYol = FSO.BuildPath(dir,dosya)
%></body>
</html>
yukarıdaki kodu win2003 serverda çalıştırdığımda "Ulaşmaya çalıştığınız sayfada sorun var ve sayfa görüntülenemiyor." hatası alıyorum bu hata yukarıdaki kodlardanmı kaynaklanıyor?
not: dizin dosyası dosyanın bulunduğu yolda mevcut. -
quote:
Orjinalden alıntı: SaLVaDoR
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<html>
<body><%
dir = server.mappath("dizin")&"\"
dosya = "1"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set YeniYol = FSO.BuildPath(dir,dosya)
%></body>
</html>
yukarıdaki kodu win2003 serverda çalıştırdığımda "Ulaşmaya çalıştığınız sayfada sorun var ve sayfa görüntülenemiyor." hatası alıyorum bu hata yukarıdaki kodlardanmı kaynaklanıyor?
not: dizin dosyası dosyanın bulunduğu yolda mevcut.
internet explorer da sırasıyla tools/internet options/advanced/show friendly http error massaged daki
tiki kaldır...ayrıntılı hata mesajı almış olursun bu sayede hatanın nerde olduğu öğrenirsin...
-
pekii, başka bir bilgisayardaki klasör içeriğini nasıl okuyacağız?
Bu intranet içinde map edilmiş bir PC'de olabilir (T:/ gibi), yahut doğrudan PC'nin ismide girilebilir ( \\pc105) örneğin?
FSO ile yapamamıştım, buradan okuyunca zaten yalnızca local çalıştığını gördüm. Peki intranet üzerindeki başka bir bilgisayarın? -
mümkün değil mi? yok mu bileenn 
quote:
Orijinalinden alıntı: IQt
pekii, başka bir bilgisayardaki klasör içeriğini nasıl okuyacağız?
Bu intranet içinde map edilmiş bir PC'de olabilir (T:/ gibi), yahut doğrudan PC'nin ismide girilebilir ( \\pc105) örneğin?
FSO ile yapamamıştım, buradan okuyunca zaten yalnızca local çalıştığını gördüm. Peki intranet üzerindeki başka bir bilgisayarın?
-
soyturk keske yazıların kaynağını da belirtseydin...
Bu yazı Metin AKSU'ya ait olupğ Maxiasp, zamanında vbsturk, fsomanual.com gibi çeşitli yerlerde yayımlanmıştır -
how to?
quote:
Orijinalinden alıntı: IQt
mümkün değil mi? yok mu bileenn
quote:
Orijinalinden alıntı: IQt
pekii, başka bir bilgisayardaki klasör içeriğini nasıl okuyacağız?
Bu intranet içinde map edilmiş bir PC'de olabilir (T:/ gibi), yahut doğrudan PC'nin ismide girilebilir ( \\pc105) örneğin?
FSO ile yapamamıştım, buradan okuyunca zaten yalnızca local çalıştığını gördüm. Peki intranet üzerindeki başka bir bilgisayarın?
-
IQt bende fso biraz sorunlu o yüzden bakıp cevap veremiyorum fakat T:/ veya \\pc105 şeklinde deneyip sonuç alabildin mi alamadıysan hata verdi mi -
yetkilerde/permissionlarda sorun olabilir... Senin IUSR_kullaniciadı nın Başka bir bilgisayara ulaşma yetkisi olmayabilir... Diğer bilgisayardan bunu denemelsin. A bilgisayarından b bilgisayarına girmek için b bilgisayarından a bilgisayarının IUSR_kullanici şeklindeki kullanıcısına en azından okuma yetkisi vermelisin -
http://www.developersdex.com/asp/message.asp?p=577&r=4264469
burada seninle aynı soruna sahip bi kullanıcı için cevap verilmiş sanırım -
hemen inceliyorum o linki, çok teşekkürler.. -
işine yaradı mı? Yaramadıysa bir şekilde ayarlamaya çalışıcam fso yu -
Ağa bağlı başka bir bilgisayarım daha var. Onda bana share vermiş olduğum bir alana bağlanmaya çalıştım.
- \\pc105\abc
- X:\
ikisinde de "No documentation found" uyarısı veriyor..
quote:
Orijinalinden alıntı: tehlike
işine yaradı mı? Yaramadıysa bir şekilde ayarlamaya çalışıcam fso yu
- \\pc105\abc
-
hmm fsoyu yapmaya çalışayım bende de bir bilgisayar daha var bi deneyelim bakalım
Bu arada bilgisayarların ikisi de xp mi? Biri xp biri 98 sew sorun yaşayabiliyor normal olarak ki asp de de yaşaması doğaldır
< Bu mesaj bu kişi tarafından değiştirildi tehlike -- 10 Ağustos 2005, 18:22:53 > -
abi no documentation found hatası???
sen sanırım hazır bir script kullandın doğru mu? -
<%
set fso = server.createobject("scripting.filesystemobject")
Set Klasor = FSO.GetFolder("\\tehlike\Muzikler")
Set Dosyalar = Klasor.Files
for each dosya in dosyalar
response.write dosya.name
next%>
dostum bak ben böyle bi kod kullandım ve çalıştı... Muzikler klasorunu paylaşıma açtım... ve içine 2 dosya attım.. Dosyalar gözüktü
Ama direkt \\tehlike olarak çağırınca hata verdi
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
