Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Asp / Asp.NET
Bu Konuda

FSO ya Giriş.....(FileSystemObject) (2. sayfa)

FSO ya Giriş.....(FileSystemObject) - Sayfa 2

soyturk · 2005-07-22T18:52:46.0000000+03:00

FileSystemObject Nedir? FileSystemObject (kısaca FSO diyeceğiz) ASP'nin dolayısıyla VBScriptin bize sağladığı sihirli bir değnektir. FSO ile çalıştığı bilgisayarın üzerindeki tüm dosya ve klasörlere ulaşabilir, onlarla kolayca istediğiniz işlemleri yapabiliriz. Bunun içinde dosyaları kopyalamak, silmek, taşımak, listelemek, text dosyaları düzenlemek, yeni dosyalar oluşturabilmek,dosyaların özelliklerini değiştirebilmek vardır. Yani bilgisayarınızda dosyalar üzrinde yaptığınız işlemlerin aynılarını yapabilirsiniz. FSO çok geniş bir konu aslında.Bir çok özelliği ve metodu var. Bunları gruplayarak anlatmak en doğrusu olacaktır. Böylece konu içinde neyin nerede olduğunu bulabilirsiniz. Ben öncelikle FSO'nun özelliklerini ve metotlarını anlatacağım. Sonrada dosya işlemleri,klasör işlemleri,sürücü işlemleri olarak anlatacağım. FSO'yu kullanabilmek için önce Set komutu ile bir FSO nesnesi oluşturmak gerekir. Bu nesne olmadan işlem yapamayız. Set FSO = CreateObject("Scripting.FileSystemObject") %> Burda hatırlanması kolay olsun diye nesnemize de FSO ismi verdik. Bundan sonraki örneklerde tekrar tekrar bu nesneyi oluşturmayacağız. Ama siz FSO gördüğünüz yerde bunun daha önceden yukarıdaki şekilde oluşturulduğunu bilmelisiniz. BuildPath Verdiğiniz bir yol üzerine verdiğiniz isimde yeni yol ekler. Yol ifadesinin geçerli bir yol ifadesi olması gerekmez. String üzerinde işlem yapar. YeniYol = FSO.BuildPath(yol,eklenecek isim) YeniYol = FSO.BuildPath("C:\Inetpub\wwwroot","images") %> YeniYol değişkeninin değeri "C:\Inetpub\wwwroot\images" olur. Response.Write FSO.BuildPath("Metin","Aksu") %> Çıktısı "Metin\Aksu" olur. Sadece tek bir isim kullanmak zorunda değilsiniz. "images" yerine "images\deneme" şeklinde de verebilirsiniz. Bu durumda da çıktı "C:\Inetpub\wwwroot\images\deneme" olacaktır. Bu metodun yaptığı işi aşağıdaki şekilde de yapabilirsiniz. YeniYol = "C:\Inetpub\wwwroot" "\" "images" %> Ama sizin ana ve eklenecek yolunuz fazladan slashlar içeriyorsa yada değişkenler başka yerden alınıyor ve nasıl geldiğini bilmiyorsanız BuildPath sizi bunları temizleme derdinden kurtarır. YeniYol = FSO.BuildPath("C:\Inetpub\wwwroot\","\images") %> Çıktısı "C:\Inetpub\wwwroot\images" olur. CopyFile Belirtilen bir hedeften yine belirtilmiş bir başka hedefe bir veya daha çok dosyayı kopyalar. FSO.CopyFile KaynakDosya(yada Dosyalar),Hedef,Overwrite Kaynak kopyalanacak olan dosya yada dosyaların ismidir. Hedef ise ya kopyalanacak olan klasör ismi yada farklı bir isimle kopyalanacak ise yeni dosya ismidir. Overwrite ise eğer kopyalanacak dosya hedefte zaten var ise üzerine yazıp yazılmayacağını belirler. True olursa dosyanın üzerine yazar.False olursa dosyanın zaten var olduğunu söyleyip hata verir. Eğer belirtilmez ise varsayılan olarak True kabul edilir. Kopyalanmak istenen klasör var olmalıdır. Yoksa yol bulunamadı hatası verir. FSO.CopyFile "c:\resim.bmp" , "d:\Resimler\", True %> Bu kod c sürücündeki resim.bmp dosyasını D sürücüsünde ki Resimler klasörüne kopyalar. Eğer dosya var ise üzerine yazar. FSO.CopyFile "c:\resim.bmp" , "d:\Resimler\", False %> Bu kodda C sürücündeki resim.bmp dosyasını D sürücüsünde ki Resimler klasörüne kopyalar. Ama eğer dosya var ise hata verir ve kopyalamaz. Eğer True yada False olarak belirtmezseniz varsayılan olarak True kabul edilir. FSO.CopyFile "C:\resim.bmp" , "D:\Resimler\" %> ile FSO.CopyFile "C:\resim.bmp" , "D:\Resimler\resim.bmp" %> tamamen aynı işi yapar. FSO.CopyFile "c:\resim.bmp" , "D:\Resimler\picture.bmp" %> Bu kod ise C sürücündeki resim.bmp dosyasını D sürücüsündeki Resimler klasörüne picture.bmp ismiyle kopyalar. Bir nevi farklı kaydet olayı yani. CopyFile metodu ile birden çok dosyayı da aynı anda kopyalayabilirsiniz. FSO.CopyFile "C:\*.*" , "D:\Deneme\" %> Burda *.* demekle C sürücünde ki tüm dosyaları D sürücüsündeki Deneme klasörüne kopyalıyoruz. Tabi ki burada yeni isim belirtme seçeneğimiz yok. Sadece hedef klasör belirtebiliyoruz. *.* yerine joker karakterler kullanarak kopyalanacak dosyalar için değişik seçenekler oluşturabiliriz. *.txt = sadece txt uzantılı olanlar b*.* = isminin ilk harfi b olanlar boot.* = ismi boot olan dosyalar ?a*.* = isminin 2. harfi a olan dosyalar ?b?.ini = 3 harfli ve isminin 2. harfi b olan ini uzantılı dosyalar. NOT : FSO ile bu şekilde dosya kopyalayacağınız gibi "FSO ile dosya işlemleri" konusunda göreceğiniz gibi GetFile ile dosyayı bir nesneye atayıp "DosyaNesnesi.Copy Hedef" şeklinde de kopyalayabilirsiniz. Ancak bu şekilde tek bir dosya kopyalayabilirsiniz. FSO.CopyFile "C:\Resim.bmp" , "D:\Resimler\Resim.bmp" 'veya FSO.CopyFile "C:\Resim.bmp" , "D:\Resimler" %> ile Set Dosya = FSO.GetFile("C:\Resim.bmp") Dosya.Copy "D:\Resimler", True(False) %> aynı işi görür. CopyFolder Belirtilen bir hedef klasörü tüm alt klasörleri ve dosyaları ile birlikte belirtilen bir hedef klasöre kopyalar. FSO.CopyFolder KaynakKlasor,Hedef,Overwrite KaynakKlasor kopyalanacak olan klasör, Hedef kaynak klasörün kopyalanacağı hedef klasördür. Overwrite ise True veya False değerlerini alarak eğer klasör var ise klasörün üzerine yazılıp yazılmayacağını belirler. True olursa üzerine yazılır. False olursa yazılmaz. Eğer belirtilmez ise varsayılan olarak True kabul edilir. FSO.CopyFolder "C:\Windows","D:\Deneme\",True %> Bu kod C sürücüsündeki Windows klasörünü tüm içeriğiyle beraber D sürücüsündeki Deneme isimli klasörün içine kopyalar.Hedef belirtilirken sonunda slash kullanıldığına dikkat edin. Eğer slash kullanmazsanız Windows klasörünün içeriği(kendisi değil) Deneme klasörüne kopyalanır. FSO.CopyFolder "C:\Deneme\*","D:\Deneme\" 'veya FSO.CopyFolder "C:\Deneme\*","D:\Deneme" %> Bu şekilde C sürücüsündeki Deneme klasörünün sadece alt klasörleri D sürücüsündeki Deneme klasörüne kopyalanır. Eğer hedef olarak verdiğiniz klasör yok ise oluşturulur ve kaynak klasörün içeriği buraya kaydedilir. Yani farklı kaydetme olayı. Mesela D sürücüsünde WinXP isimli bir klasör yok diyelim. FSO.CopyFolder "C:\Windows","D:\WinXP" %> Bu durumda C sürücüsündeki Windows klasörü D sürücüsüne WinXP ismiyle kaydedilir. Hedef klasör belirtilirken yine slash kullanılmadığına dikkat edin. Eğer XYZ klasörü yoksa FSO.CopyFolder "C:\Windows","D:\XYZ\WinXP" %> derseniz hata alırsınız. FSO sizin için bir XYZ klasörü oluşturup bunun içine WinXP'yi oluşturmaz. Ama eğer XYZ klasörü varsa WinXP klasörü yoksa bu oluşturulur ve kaynak klasör içeriği bunun içine kopyalanır. Eğer WinXP klasörü de varsa bu durumda, yukarda belirtildiği gibi, sonda slash kullanılıp kullanılmadığına bağlı olarak kaynak klasör aynı isimle klasör yapısı korunarak veya sadece içeriğiyle bu klasör içine kopyalanır. NOT : FSO ile bu şekilde klasör kopyalayacağınız gibi "FSO ile klasör işlemleri" konusunda göreceğiniz gibi GetFolder ile klasörü bir nesneye atayıp "KlasorNesnesi.Copy Hedef" şeklinde de kopyalayabilirsiniz. Ancak bu şekilde tek bir klasör kopyalayabilirsiniz. FSO.CopyFolder "C:\Windows" , "D:\Deneme", True(False) %> ile Set Klasor = FSO.GetFolder("C:\Windows") Klasor.Copy "D:\Deneme", True(False) %> aynı işi görür. CreateFolder Adından anlayacağınız gibi verdiğiniz klasör içinde verdiğiniz isimde boş bir klasör oluşturur. FSO.CreateFolder YeniKlasor True/False şeklinde bir argümanı yoktur. Eğer oluşturulmak istenen klasör varsa hata verir. FSO.CreateFolder "C:\Deneme" %> C sürücüsünde Deneme isimli bir klasör oluşturur. FSO.CreateFolder "C:\Metin\Aksu" %> Eğer C sürücünde Metin isimli bir klasör varsa içine Aksu isminde bir klasör oluşturur. Eğer yoksa yol bulunamadı hatası verir. FSO.CreateFolder "C:\Windows\System32\MetinAksu" %> System32 klasörü içinde MetinAksu isminde bir klasör oluşturur. DeleteFile Belirttiğiniz bir dosya yada dosyaları siler. FSO.DeleteFile Dosyaİsmi FSO.DeleteFile "C:\Deneme.txt" %> Siz direk dosya ismi yerine CopyFile konusunda işlediğimiz gibi joker karakterler kullanarak birden fazla dosyayı silebilirsiniz. FSO.DeleteFile "C:\Deneme\*.*" %> C sürücüsünde ki Deneme klasörü içindeki tüm dosyaları siler. *.txt = sadece txt uzantılı olanlar b*.* = isminin ilk harfi b olanlar boot.* = ismi boot olan dosyalar ?a*.* = isminin 2. harfi a olan dosyalar ?b?.ini = 3 harfli ve isminin 2. harfi b olan ini uzantılı dosyalar. NOT : Siz bu şekilde dosya silebileceğiniz gibi GetFile ile oluşturduğunuz dosya nesnesinin Delete yöntemiyle nesnenin tuttuğu dosyayı silebilirsiniz. Set Dosya = FSO.GetFile("C:\Deneme\Resim.bmp") Dosya.Delete %> Böylece Resim.bmp dosyası silinmiş oldu. DeleteFolder Verdiğiniz bir klasörü tüm alt dosya ve klasörleri ile birlikte siler. FSO.DeleteFolder Klasörİsmi Klasör ismi sonunda \ yada / işareti kullanmamalısınız.Yoksa hata alırsınız. FSO.DeleteFolder "C:\Deneme" %> C sürücüsündeki Deneme klasörünü tüm içeriğiyle beraber siler. NOT : Siz bu şekilde klasör silebileceğiniz gibi GetFolder yöntemiyle oluşturduğunuz klasör nesnesinin Delete metodu ile de nesnenin tuttuğu klasörü silebilirsiniz. Set Klasor = FSO.GetFolder("C:\Deneme") Klasor.Delete %> C sürücüsündeki Deneme klasörü silinmiş oldu. Devam Edeceğizz...........................

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda https://amzn.to/40CnvTY

Under Armour UA EU RIVAL TRACKSUIT NOV Eşofman Takımı Erkek : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0CKT59WQ3 3 ay önce paylaşıldı

Faber-Castell PP Kapak BiColor Spiralli 120 YP Düz : Amazon.com.tr: Ofis ve Kırtasiye https://www.amazon.com.tr/dp/B08ZQM9QFX 4 sa. önce paylaşıldı

Cata CT-4277 9 W 6400K Led Ampul 10'lu Fiyatları ve Özellikleri https://www.n11.com/urun/cata-ct-4277-9-w-6400k-led-ampul-10lu-27411294 geçen yıl paylaşıldı

TP-Link Archer TX20U, AX1800 Mbps, Çift Bant, MU-MIMO, USB 3.0, WPA3, Wi-Fi 6 USB Adaptör : Amazon.com.tr: Bilgisayar https://www.amazon.com.tr/dp/B0CFFD1SZ1 5 ay önce paylaşıldı

Metta Samurai Deri ve Fileli Ofis Koltuğu / Çalışma Sandalyesi L1-2D Açık Kahve-Gri-Siyah - idefix https://www.idefix.com/metta-samurai-deri-ve-fileli-ofis-koltugu-calisma-sandalyesi-l1-2d-acik-kahve-gri-siyah-p-5918294 3 sa. önce paylaşıldı

rays kase kaban - Fiyatları ve Modelleri - Hepsiburada https://app.hb.biz/Wfft9g5HjZRs 4 sa. önce paylaşıldı

JACK WOLFSKIN Terraquest Texapore Low W Yürüyüş Ayakkabısı Kadın : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0B257QRBS 4 sa. önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

29
Cevap

0
Favori

2.031
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Asp / Asp.NET >> FSO ya Giriş.....(FileSystemObject) | DonanımHaber Forum » Sayfa 2

Sayfa:

önceki 1 2

Sayfaya Git

Git

Giriş

Mesaj

IQt

Yüzbaşı

292 Mesaj

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 100 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

12 Ağustos 2005 09:14:17

Mesaj Linkini Kopyala
Şikayet

madem sende çalıştı ben beceremiyorum sanırım..

paylaşıma açtığım dosyada abc klasörü oluşturdum örneğin..
pc141'de web server var.
pc139'da hem paylaşım, hem web paylaşımı ve hemde güvenlikten kendi kullanıcıma ve everyone'a yetki verdim okuma ve klasör içeriğini listeleme için..

ancak..

Error Type: 
  Microsoft VBScript runtime (0x800A004C) 
  Path not found 
  /abc_listele.asp, line 3

pc141 içindeki kod;

<%  
  set fso = server.createobject("scripting.filesystemobject")  
  Set Klasor = FSO.GetFolder("\\pc139\abc")  
  Set Dosyalar = Klasor.Files  
  for each dosya in dosyalar  
  response.write dosya.name  
  next%>

Bu mesaja 1 cevap geldi

tehlike

Yüzbaşı

368 Mesaj

"müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 250 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 2. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

12 Ağustos 2005 11:07:25

Mesaj Linkini Kopyala
Şikayet

abi msnini verir misin seninle bunu konuşalım:)

locationhack

Onbaşı

23 Mesaj

"onbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

16 Ağustos 2005 16:38:27

Mesaj Linkini Kopyala
Şikayet

kardes sen ken FSO larini kendinmi yaziyorsun ? ve simdiye kadar bu tip yontemle bi sisteme girdin? sen bunlari kendin yazdigina göre biliyorsun demektir bunu biliorsan burada isin ne ? bilmiyorsan neden alinti diye yazmadin cok merak ettim (tabiki emegine sonsuz saygim var) kolay gelsin..

Bu mesaja 1 cevap geldi

IQt

Yüzbaşı

292 Mesaj

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 100 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

16 Ağustos 2005 17:15:11

Mesaj Linkini Kopyala
Şikayet

kime bu soru?

quote:

Orijinalinden alıntı: locationhack

kardes sen ken FSO larini kendinmi yaziyorsun ? ve simdiye kadar bu tip yontemle bi sisteme girdin? sen bunlari kendin yazdigina göre biliyorsun demektir bunu biliorsan burada isin ne ? bilmiyorsan neden alinti diye yazmadin cok merak ettim (tabiki emegine sonsuz saygim var) kolay gelsin..

Bu mesaja 1 cevap geldi

tehlike

Yüzbaşı

368 Mesaj

"müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 250 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 2. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

16 Ağustos 2005 18:29:31

Mesaj Linkini Kopyala
Şikayet

sana değil soyturke
@IQt abi gel msne konuşalım
pmine atıyorum

Bu mesaja 1 cevap geldi

IQt

Yüzbaşı

292 Mesaj

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 100 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

17 Ağustos 2005 08:24:54

Mesaj Linkini Kopyala
Şikayet

geldimm...
ama sanırım erken saatlerde çevrimiçi olamıyorsun.. Geldiğinde ya buraya mesaj yollarsın yada pm'e ben farkeder ve tekrar girerim..

quote:

Orijinalinden alıntı: tehlike

sana değil soyturke
@IQt abi gel msne konuşalım
pmine atıyorum

Bu mesaja 1 cevap geldi

IQt

Yüzbaşı

292 Mesaj

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 100 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

23 Ağustos 2005 17:18:53

Mesaj Linkini Kopyala
Şikayet

denedik olmadı arkadaşlar, bilgilerinize..

tehlike.. tekrar teşekkürler..

Bu mesaja 1 cevap geldi

tehlike

Yüzbaşı

368 Mesaj

"müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 250 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 2. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

23 Ağustos 2005 23:05:11

Mesaj Linkini Kopyala
Şikayet

keşke elimden birşey gelse:) belki sistemin başında olsam birşeyler yapabilirdim ama beceremedik ya:)

Bu mesaja 1 cevap geldi

IQt

Yüzbaşı

292 Mesaj

"vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"geek": En az 100 teknoloji forumu mesajı yazdı. 4 seviyeli bu başarı rozetinin 1. seviyesine sahip.

"yüzbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

24 Ağustos 2005 08:21:22

Mesaj Linkini Kopyala
Şikayet

Kısmet artık, o kadar uğraştınız..

yeni mesaja git

Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz. Bir Daha Gösterme

Sayfa:

önceki 1 2

Sayfaya Git

Git

Cevapla

Hızlı Cevap

Mesajım Bulunsun

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Asp / Asp.NET >> FSO ya Giriş.....(FileSystemObject) | DonanımHaber Forum » Sayfa 2

Reklamlar

Bu sayfanın

Mobil sürümü

Mini Sürümü

BR2
0,625
1.2.165

Reklamlar

Mesaj linki kopyalandı.

Bir sorun oluştu.

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

%40
Kazan

%2,8
Kazan

%6,5
Kazan

%25
Kazan

%1,6
Kazan

%3,2
Kazan

%5,5
Kazan

%3,2
Kazan

%5
Kazan

%3,2
Kazan

%5
Kazan

%2
Kazan

Alışveriş Yaptıkça Para Kazan Harekete Geç »

Donanım Sponsoru: incehesap.com

Bu sayfanın mobil sürümü / mini sürümü

Version: 1.2.3221