Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Bu kodlar sayesinde İstediğiniz dosyanın özellilerini görebilirsiniz.
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Procedure ve fonksiyon tanımlama

Yazar: bracos

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 7352
Yayın Tar:28.06.2006
Yazar : aspara
Hit :2999

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Option Explicit

Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20

'************Eklenecek kontroller**************
'DirListBox
'DriveListBox
'FileLİstBox
'listBox
'Bu kodlar sayesinde İstediğiniz dosyanın özellilerini görebilirsiniz.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir (Dir1.Path)
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
ChDir Drive1.Drive
End Sub



Private Sub File1_Click()
Dim Hidden As String, Sistem1 As String, Arsiv As String, SaltOku As String
Dim doSya As String, Incele As Long
List1.Clear
doSya = File1.FileName

Incele = GetFileAttributes(doSya)

List1.AddItem "Dosya adı: " & vbTab & doSya

List1.AddItem "Bit değeri: " & vbTab & Incele
If CBool(Incele And FILE_ATTRIBUTE_HIDDEN) = False Then
Hidden = "Hayır"
Else
Hidden = "Evet"
End If
List1.AddItem "Gizli: " & vbTab & vbTab & Hidden

If CBool(Incele And FILE_ATTRIBUTE_SYSTEM) = False Then
Sistem1 = "Hayır"
Else
Sistem1 = "Evet"
End If
List1.AddItem "Sistem: " & vbTab & vbTab & Sistem1

If CBool(Incele And FILE_ATTRIBUTE_ARCHIVE) = False Then
Arsiv = "Hayır"
Else
Arsiv = "Evet"
End If
List1.AddItem "Arşiv: " & vbTab & vbTab & Arsiv

If CBool(Incele And FILE_ATTRIBUTE_READONLY) = False Then
SaltOku = "Hayır"
Else
SaltOku = "Evet"
End If
List1.AddItem "Salt okunur: " & vbTab & SaltOku

'Murat Demir
End Sub
onaylayan: Webmaster




Yorumlar, eklemeler ve düşünceler
        










   duzgun6289, 04.07.2006 19:45
   slm
daha yazamadım da ben bişeyi merik ediyom bu kodların tam olarak nereye yazıldığını bilmiyorum aslında şöle hangi butnlara yazıldığını bilmiyorum. ben bu zoru nasıl başarabilirim


   kev5x, 07.07.2006 11:57
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin