Hallo

ich hoffe das mir jemand helfen kann
hier im forum oder google hilft mir nicht weiter
liegt evtl. an der fragestellung


also ich möchte das mir das lable, die summe an 0 bytes dateien in meinem ordner anzeigt.
im netz finde ich immer was mit einer msgbox, dies kann ich leider nicht gebrauchen.

ich möchte quasie wenn meine form offen ist, auf der ersten seite die anzahl der dateien
anzeigen lassen. ich hatte das auch schonmal geschafft jedoch habe ich diese zeilen wieder vergessen
obwohl sie recht simbel waren.

ich arbeite mit vb 2015

vielen dank im Vorraus

*Topic verschoben*

mrMo

ja Korrekt

hi

bei dem auslesen der summe und das anzeigen der summe

Public Class Start
Private Sub Start_Load(sender As Object, e As EventArgs) Handles MyBase.Load

BackColor = Color.Black
player.settings.setMode("Loop", True)
Label1.Text = "1000 Movies"
Label1.Location = New Point(12, 243)
Label1.ForeColor = Color.Red


'Serien'
Button2.BackgroundImage = My.Resources.Serien
Button2.Width = 99
Button2.Height = 110
Button2.BackgroundImageLayout = ImageLayout.Stretch
Button2.BackColor = Color.Black
Button2.Text = " "
Button2.Location = New Point(326, 112)
Button2.FlatStyle = FlatStyle.Flat
Button2.Anchor = AnchorStyles.Right And AnchorStyles.Bottom
'Filme'
Button1.BackgroundImage = My.Resources.Filme
Button1.Width = 99
Button1.Height = 110
Button1.BackgroundImageLayout = ImageLayout.Stretch
Button1.BackColor = Color.Transparent
Button1.Text = " "
Button1.Location = New Point(12, 112)
Button1.FlatStyle = FlatStyle.Flat
Button1.Anchor = AnchorStyles.Left And AnchorStyles.Bottom
'Exit'
Button3.Width = 40
Button3.Height = 21
Button3.BackColor = Color.Black
Button3.Text = "EXIT"
Button3.ForeColor = Color.Red
Button3.Location = New Point(385, 12)
Button3.FlatStyle = FlatStyle.Flat
Button3.Anchor = AnchorStyles.Right And AnchorStyles.Top
'Update'
Button4.Width = 71
Button4.Height = 21
Button4.BackColor = Color.Black
Button4.Text = "UPDATE"
Button4.ForeColor = Color.Red
Button4.Location = New Point(262, 12)
Button4.FlatStyle = FlatStyle.Flat
Button4.Anchor = AnchorStyles.Right And AnchorStyles.Top
'Help'
Button5.Width = 40
Button5.Height = 21
Button5.BackColor = Color.Black
Button5.Text = "Hilfe"
Button5.ForeColor = Color.Red
Button5.Location = New Point(339, 12)
Button5.FlatStyle = FlatStyle.Flat
Button5.Anchor = AnchorStyles.Right And AnchorStyles.Top
end sub
end class




soweit so gut
nun will ich rausfinden wie ich den lable1 zum laufen bekomme

RodFromGermany schrieb:

@RedfieId Dann beschreibe mal verbal (also ohne Code), was gemacht werden muss, um Dein Problem zu lösen.
Wenn die Beschreibung rund ist, setzen wir sie um in Code.

Also mein lable liegt auf der form "lable1"
ich habe im ordner c:\program files\cfa\tmp rund 1000 0 byte dateien liegen
die genaue anzahl in diesem ordner soll das lable anzeigen



jedoch weiß ich nicht mehr wie das ging bzw wie die codierung war
ich bin ziemlioch neu in diesem gebiet bzw habe ich auch lange nix mehr gemacht
und meine code backups sind leider auch weg

mrMo schrieb:

Mal auf die schnelle was zusammen geschrieben. Vielleicht bringt es dich etwas weiter:

VB.NET-Quellcode

1. ​Imports System.IO
2. Public Class Form1
3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
5. Dim sPfad As String = "C:\tmp" ' <- Hier deinen Pfad angeben
6. Dim lstDateien As New List(Of FileInfo)
7. Dim Infos As New DirectoryInfo(sPfad)
8. lstDateien.AddRange(Infos.GetFiles())
9. Dim iCounter As Integer
10. For Each sDatei As FileInfo In lstDateien
11. If sDatei.Length = 0 Then
12. iCounter += 1
13. End If
14. Next
15. Label1.Text = iCounter.ToString()
17. End Sub
18. End Class

Vielen lieben dank das hat hingehauen er zeigt mir jetzt die summe an

RodFromGermany schrieb:

@RedfieId Dann beschreibe mal verbal (also ohne Code), was gemacht werden muss, um Dein Problem zu lösen.
Wenn die Beschreibung rund ist, setzen wir sie um in Code.
=====
Was soll dieser Code?
Das ist GUI-Design und gehört in den Designer-Code, nicht aber in die Form_Load.

RodFromGermany schrieb:

@RedfieId Beschreibe den Ablauf, den das Programm durchlaufen muss, verbal.
- Alle Dateien aufsammeln
- Davon alle Dateien rausfiltern, deren Länge 0 ist.
...
=====
Was hast Du davon, wenn in dem Label "975" steht?
Hast Du z.B. vor, diese leeren Dateien zu löschen?

Nein die sollen nicht gelöscht werden. im gegenteil diese werden mit der zeit mehr
und ich weiß gerne wieviel movies ich genau habe

zu dem code ich habe mich nie gefragt wieso das immer bei mir so anderst ausschaut als bei verschiedene beispiele
aber wenn diese codierung in den Desinger gehört brauch ich mich auch nicht wundern
warum ich immer nen mix aus beidem habe