Çözüldü Vb.net hata

[CrazyPcUser]

Merhaba Arkadaşlar,
Visual studio'da Benim için önemli bir program yapıyorum.
Ama işte bu hatayı alıyorum Çok önemli benim için programı yönetici yaptım ama olmadı nasıl çözerim sizce ???

Programın amacı bilgisayardaki text dosyalarını bulup listbox'a yazdırma bunu çözersem programı bitiricem !!!!

 

[osm4nl1evl4d1]

oturumu açtığınız kullanıcı yönetici yani administrator haklarına sahip mi kontrol edin:

Öncelikle kullanıcınız Yönetici yani Administrator yetkilerine sahip değilse her klasöre ve dosyaya erişim hakkı yoktur.

Oturum açtığınız kullanıcı yöneticimi kontrol etmek için şu yolu izleyin.

Başlatı tıklayın.
Denetim Masasına tıklayın.
Kullanıcı hesapları ve Aile koruması altındaki Kullanıcı hesapları ekle veya kaldır tıklayın.
Oturumu açtığınız kullanıcı adının altında Administrator yazmıyorsa kullanıcınız yönetici haklarına sahip değildir. Muhtemelen kullanıcı adınızın altında Standart kullanıcı yazıyordur.
Burada adının altında Administrator yazan kullanıcı ile bilgisayara giriş yapın.
Yine Denetim Masası > Kullanıcı Hesapları yolunu izleyin.
Administrator hakları vermek istediğiniz kullanıcıyı iki kere tıklayın. ​

 

[CrazyPcUser]

oturumu açtığınız kullanıcı yönetici yani administrator haklarına sahip mi kontrol edin:

Öncelikle kullanıcınız Yönetici yani Administrator yetkilerine sahip değilse her klasöre ve dosyaya erişim hakkı yoktur.

Oturum açtığınız kullanıcı yöneticimi kontrol etmek için şu yolu izleyin.

Başlatı tıklayın.
Denetim Masasına tıklayın.
Kullanıcı hesapları ve Aile koruması altındaki Kullanıcı hesapları ekle veya kaldır tıklayın.
Oturumu açtığınız kullanıcı adının altında Administrator yazmıyorsa kullanıcınız yönetici haklarına sahip değildir. Muhtemelen kullanıcı adınızın altında Standart kullanıcı yazıyordur.
Burada adının altında Administrator yazan kullanıcı ile bilgisayara giriş yapın.
Yine Denetim Masası > Kullanıcı Hesapları yolunu izleyin.
Administrator hakları vermek istediğiniz kullanıcıyı iki kere tıklayın. ​

Bilgisayardaki girişim Administrator yinede olmuyo

 

[Socialmm]

programi yonetici olarak calismasini saglamalisin her klasore erisemiyor..

 

[iHaSaHi]

Kodlar hatalı bende kodları denedim aynı hatayı alıyorum

 

[CrazyPcUser]

programi yonetici olarak calismasini saglamalisin her klasore erisemiyor..

Program yönetici haklarına sahip ! ! !

 

[Socialmm]

Program yönetici haklarına sahip ! ! !

sen yinede bin/debug dan sag tik yonetici olarak calistiri denermisin

 

[CrazyPcUser]

Kodlar hatalı bende kodları denedim aynı hatayı alıyorum

Sizce bu işi nasıl yaparım yani listboxa yazmak zorundada değil bir klasöre toplasada olur yani
yani bilgisayardaki .txt dosyaları bulup bir klasörde toplayabilir ama yapamadım bunu

 

[CrazyPcUser]

sen yinede bin/debug dan sag tik yonetici olarak calistiri denermisin

malesef

 

[Socialmm]

malesef

aga bi try catch koy belkide sadece o kisma girisi engellidir diger yerdekileri okur listboxa aktarabilirsen zaten gerisi kolay filecopy ile bi klasorde toplarsin

 

[CrazyPcUser]

aga bi try catch koy belkide sadece o kisma girisi engellidir diger yerdekileri okur listboxa aktarabilirsen zaten gerisi kolay filecopy ile bi klasorde toplarsin

Kardeşim onuda denedim ama oda olmuyo programı açıyo ama listbox boş oluyo

 

[EnesJikoDHT]

Müziğim klasörüne sağ tıklayıp özellikler de kullanıcı hesaplarına bakar mısın izlinlerine ?
ve ayrıca Administrator var mı diye de bir bak. Yoksa Ekle

 

[CrazyPcUser]

Müziğim klasörüne sağ tıklayıp özellikler de kullanıcı hesaplarına bakar mısın izlinlerine ?
ve ayrıca Administrator var mı diye de bir bak. Yoksa Ekle

 

[EnesJikoDHT]

Tam emin değilim Administrator ile Administrators ayrıydı sanırım
bir de Users olması lazım yoksa sen ekle Users izinlerini de full izin ver bir de öyle dene

 

[Socialmm]

Public Sub DirSearch(ByVal sDir As String)
    Dim dir As String
    Try
        For Each dir In Directory.GetDirectories(sDir)
            For Each file In Directory.GetFiles(dir, "*.txt")
                ComboBox1.Items.Add(file)
            Next
            DirSearch(dir)
        Next
    Catch ex As Exception
        Debug.WriteLine(ex.Message)
    End Try
End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
DirSearch("C:\")
End Sub

şu tur bisey denermisin

 

[Jack Pirates]

Kardeşim Dosya yolunu bulamıyor yani sen "*.txt" yapmışsın ama nereye atıcağını yazmamışsın. ona c:// ekliyerek deniyebilirsin veya * Bu işareti kaldırda dene.

 

[CrazyPcUser]

1 haftadır bu hatayla uğraştım araştırdım yok olmuyo aslında bu formunda bunun gibi bi program yapan vardı ama !!!

 

[CrazyPcUser]

Public Sub DirSearch(ByVal sDir As String)
    Dim dir As String
    Try
        For Each dir In Directory.GetDirectories(sDir)
            For Each file In Directory.GetFiles(dir, "*.txt")
                ComboBox1.Items.Add(file)
            Next
            DirSearch(dir)
        Next
    Catch ex As Exception
        Debug.WriteLine(ex.Message)
    End Try
End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
DirSearch("C:\")
End Sub

şu tur bisey denermisin

Bu çalıştı

 

[Socialmm]

Bu çalıştı

:yaho1 rahat uyuyabilirim sende tesekkur etme aman orasi 0 kalsinda egon tatmin olsun :d

 

[CrazyPcUser]

:yaho1 rahat uyuyabilirim sende tesekkur etme aman orasi 0 kalsinda egon tatmin olsun :d

dur uyuma hemen benim istediğim gibi uyarlayabilirmiyiz