Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ist mir nicht ganz klar...
Autor: Boris Huemer
Datum: 18.04.02 10:15
Wo muss ich den code von dir dann einfügen?? das ganze sieht so aus, dass der ordner dessen größe dargestellt wird, immer der ist, der in der List_ok markiert ist! also der pfad ist List_ok.text. Hier er Code: -------------------------------------------------------------------------------------------- ' Fortschritsanzeige Private Sub ShowProgressok(pic_ok As PictureBox, _ ByVal Value1 As Long, _ ByVal Min1 As Long, _ ByVal Max1 As Long, _ Optional ByVal bShowProzent As Boolean = True) Dim pWidth1 As Long Dim intproz1 As Integer Dim strProz1 As String Dim fso1 As New Scripting.FileSystemObject Dim folder1 As Scripting.Folder Dim path As String ' Farben Const progBackColor = &HC00000 Const progForeColor = vbBlack Const progForeColorHighlight = vbWhite ' Plausibilitätsprüfungen If Value1 < Min1 Then Value1 = Min1 If Value1 > Max1 Then Value1 = Max1 ' Prozentwert ausrechnen If Max1 > 0 Then intproz1 = Int(Value1 / Max1 * 100 + 0.5) Else intproz1 = 100 End If With pic_ok ' Prüfen, ob AutoReadraw=True If .AutoRedraw = False Then .AutoRedraw = True ' Inhalt löschen pic_ok.Cls If Value1 > 0 Then ' Balkenbreite pWidth1 = .ScaleWidth / 100 * intproz1 ' Balken anzeigen pic_ok.Line (0, 0)-(pWidth1, .ScaleHeight), _ progBackColor, BF ' Prozentanzeige If bShowProzent Then strProz1 = CStr(intproz1) & " %" .CurrentX = (.ScaleWidth - .TextWidth(strProz1)) / 2 .CurrentY = (.ScaleHeight - .TextHeight(strProz1)) / 2 ' Vordergrundfarbe If pWidth1 >= .CurrentX Then .ForeColor = progForeColorHighlight Else .ForeColor = progForeColor End If pic_ok.Print strProz1 End If End If End With End Sub Private Sub file_ok_Click() ' Fortschritsanzeige Dim pWidth1 As Long Dim intproz1 As Integer Dim strProz1 As String Dim formatkb As String Dim formatmb As String Dim fso1 As New Scripting.FileSystemObject Dim folder1 As Scripting.Folder Dim path As String With file_ok If .ListIndex >= 0 Then path = file_ok.Text Set folder1 = fso1.GetFolder(path) formatkb = folder1.Size / 1024 formatmb = folder1.Size / 1024 / 1024 If opt_kbok.Value = True Then lbl_okformat.Caption = "Kilobytes" lbl_oksize.Caption = Round(formatkb, 2) End If If opt_mbok.Value = True Then lbl_okformat.Caption = "Megabytes" lbl_oksize.Caption = Round(formatmb, 2) End If lbl_nameok.Caption = file_ok.Text Dim BytesAvail As Currency Dim BytesTotal As Currency Dim BytesFree As Currency Dim lResult As Long Dim sDrive As String sDrive = file_ok.Text lResult = GetDiskFreeSpaceEx(sDrive, _ BytesAvail, BytesTotal, BytesFree) If lResult Then ' belegten Speicherplatz anzeigen intproz1 = 100 - Int(BytesAvail / BytesTotal * 100) ShowProgressok pic_ok, intproz1, 0, 100 End If End If End With End Sub --------------------------------------------------------------------------------------- Mit diesem Code wird mir allerdings der belegte speicherplatz des Laufwerks angezeigt! Wie muss ich den code jetzt noch verändern, sodass ich den speicherplatz des Ordners in der List_OK sehe? fg boris

Grafische Speicheranzeige auf Ordner beziehen?	36	Boris Huemer	18.04.02 08:55
Re: Grafische Speicheranzeige auf Ordner beziehen?	244	Dieter	18.04.02 09:32
Ist mir nicht ganz klar...	19	Boris Huemer	18.04.02 10:15
Re: Ist mir nicht ganz klar...	218	Dieter	18.04.02 10:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen