MyDesign | Kod Arivi - Anasayfaya Dn   No banner in farm
Anasayfa Aratr Forum Gelimi Arama Siteniz in En Hit erikler RSS erik Ekle Scriptler Destekleyenler Kadromuz Reklam letiim Giri Sayfas Yap  Sk Kullanlanlara Ekle
Bu Kategorinin En Yeni Kodlar:


Bu Kategorinin En ok Grntlenen Kodlar:






Arama:
Gelimi Arama


No banner in farm



En ok Grntlenen Kodlar:


ye Girii:
 ye Ol



Anasayfa > VisualBasic > Kodlar

Bilgisayardaki Kullanıcıların Adlarını Bulma

NT tabanlı sistemlerde "Kullanıcılar" klasörüne bağlı olarak kullanıcıların adlarını bir listbox içine yazar

Kategori : VisualBasic
Gnderen : mYavuz
Telif :
Tarih : 10 Haziran 2006
rnek Dosya : Bulunmamakta
Okunma Says : 10476
Puan
: 0 / 10 (0 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
'// Projeye List1 adında bir adet listbox ekleyin ve scrrun.dll dosyasına bir referans ekleyin
Private Declare Function GetProfilesDirectory Lib "userenv.dll" Alias "GetProfilesDirectoryA" (ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
Private objFSO As FileSystemObject
Private objFolders As Folders, objFolder As Folder

Private Sub Form_Load()
    Dim sBuffer As String
    Dim strPARENT As String
    
    sBuffer = String(255, 0)
    GetProfilesDirectory sBuffer, 255
    
    strPARENT = StripTerminator(sBuffer)
    Set objFSO = New FileSystemObject
    
    'if path is invalid, exit
    If Not objFSO.FolderExists(strPARENT) Then Exit Sub
 
    ' "seed" the loop
    strPaths = IIf(Right(strPARENT, 1) = "\", strPARENT, strPARENT & "\")

    ' Add subfolders, if any, to array
    Set objFolders = objFSO.GetFolder(strPaths).SubFolders
    For Each objFolder In objFolders
        List1.AddItem objFolder.Name
    Next
    
    Set objFSO = Nothing
    Set objFolders = Nothing
    Set objFolder = Nothing

End Sub

Function StripTerminator(sInput As String) As String
    Dim ZeroPos As Long
    ZeroPos = InStr(1, sInput, Chr$(0))
    If ZeroPos > 0 Then
        StripTerminator = Left$(sInput, ZeroPos - 1)
    Else
        StripTerminator = sInput
    End If
End Function
 
 

Bilgisayardaki Kullanıcıların Adlarını Bulma iin yazlan yorumlar

Hen�z yorum eklenmedi.

Yorum ekleyin

Anasayfa > VisualBasic > Kodlar > Bilgisayardaki Kullanıcıların Adlarını Bulma
Kategoriler:


Forum:



Balantlar:



    En Son Yorumlanan erikler:


    Murat Yavuz | Site Haritas | Gizlilik Bildirimi | 35.171.146.16 | 0,14 Saniye
    © Copyright 2004-2019 MyDesign | Kod Arivi. Tm Haklar Sakldr.
    MyDesign | Kod Arivi, en iyi grnm iin, 1024x768 ve zeri znrlk tavsiye eder.