VB:Net'te Klasörleme Fonksiyonları

E

erayc

Yeni üye
17 Mar 2007
2
0
_______________________________________________________________________
|:::::::::::::::::::::::::::KLASÖR FONKSİYONLARI::::::::::::::::::::::::|
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
NOT:Klasörleme fonksitonlarında uygulamaya imports system.io yu ekleyin!
*************************************************************************
KLASÖR OLUŞTURMA:directory.createdrectory(DosyaYolu)
*************************************************************************
KLASÖR SİLME:directory.delete(DosyaYolu)
*************************************************************************
KLASÖRÜN OLUP-OLMADIĞINI KONTROL:directory.exists(DosyaYolu)
'True veya False değeri döndürür.
*************************************************************************
KLASÖR İÇİNDEKİ DOSYALARI LİSTELEME:directory.getfiles(DosyaYolu)
*********
* ÖRNEK *
*********
Dim dizi() as String
dizi=directory.getfiles(DosyaYolu)
For Each Eleman As String In Dizi
listbox1.items.add(Eleman)
Next
*************************************************************************
KLASÖR İÇİNDEKİ KLASÖRLERİ LİSTELEME:directory.getdirectories(DosyaYolu)
*********
* ÖRNEK *
*********
Dim dizi() as String
dizi=directory.getdirectories(DosyaYolu)
For Each Eleman As String In Dizi
listbox1.items.add(Eleman)
Next
**************************************************************************
ANA ROOT İSMİNİ ÖĞRENME:directory.getdirectoryRoot(DosyaYolu)
**************************************************************************
BİLGİSAYARDAKİ SÜRÜCÜLERİ LİSTELEME:directory.GetLogicalDrivers()
*********
* ÖRNEK *
*********
Dim Suruculer() as String
Suruculer=directory.GetLogicalDrivers()
For Each Eleman As String In Dizi
listbox1.items.add(Eleman)
Next
***************************************************************************
BİR ÜST KLASÖRÜN ADI:directory.GetParent(KlasörYolu).tostring
*********
* ÖRNEK *
*********
me.text=directory.getParent("c:/windows/system32").tostring 'C:/windows
***************************************************************************
KLASÖR OLUŞTURMA TARİH-SAAT:örn:me.text=directory.GetCreationTime
***************************************************************************
KLASÖR İÇİNDE DOSYA ARAMA:directory.getFileSystemEntries(KlasörYolu,_
AranacakKelime)
*********
* ÖRNEK *
*********
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
ListView1.Items.Clear()
Dim dizi() As String
dizi = System.IO.Directory.GetFileSystemEntries(FolderBrowserDialog1._
SelectedPath, TextBox1.Text)
For Each listele As String In dizi
ListView1.Items.Add(listele)
Next
End If
****************************************************************************
KLASÖR TAŞIMA:directory.move(KlasörYolu,TaşınacakYol)
****************************************************************************
KLASÖRÜN ÖZELLİĞİNİ ÖĞRENME(GİZLİ,SİSTEM):directoryAttributes(DosyaYolu)
*********
* ÖRNEK *
*********
****************************************************************************
KLASÖRÜN NİTELİK AYARI(GİZLİ,SİSTEM):FileSystem.SetAttr(DosyaYolu, NİTELİK)
Normal:0
Salt Okunur:1
Gizli:2
Sistem:4
Dizin & Klasör:16
Arşiv=32
****************************************************************************















 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.