MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Ü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
Gönderen : mYavuz
Telif :
Tarih : 10 Haziran 2006
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 9329
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 için yazılan yorumlar

Henüz yorum eklenmedi.

Yorum ekleyin

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


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.146.27.245 | 0,16 Saniye
© Copyright 2004-2017 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.