Hej alle
Jeg vil gerne kunne finde størrelsen på filer (samme type) i
forskellige underbiblioteker, men er kørt fast.
Jeg har forsøgt følgende:
Private Sub Command1_Click()
On Error GoTo FilFejl
Dim dSum As Double
Dim sFil As String
Dim oI As Byte
dSum = 0
For oI = 0 To 2
ChDir sSti(oI)
filFiler.Refresh
Label1.Caption = filFiler.Path
For xN = 0 To filFiler.ListCount - 1
sFil = LCase(filFiler.List(xN))
If Mid(sFil, Len(sFil) - 3) = ".dat" Then
List1.AddItem sFil & " " & FileLen(sFil)
dSum = dSum + FileLen(sFil)
End If
Next
MsgBox "Pause... " & oI & vbLf & sSti(oI)
Next oI
Label2.Caption = dSum / 1024 / 1024
Exit Sub
FilFejl:
Resume Next
End Sub
Private Sub Form_Load()
sSti(0) = "\Programmer\Agent\data"
sSti(1) = "\Programmer\Agent\server1"
sSti(2) = "\Programmer\Agent\server2"
End Sub
Jeg har en FileListBox kontrol som hedder: filFiler og en ListBox: som
hedder: List1 på min form, men der kommer kun resultater fra:
\Programmer\Agent\server2.
Hvis jeg ændre tæller variablen oI til:
"For oI = 0 To 0" får jeg første gang programmet kører en fejl, anden
gang virker det. Det gælder også hvis jeg ændre til: "For oI = 1 To 1"
Der er ligesom om at filFiler er "bagud"
Er der nogen der kan hjælpe?
--
Med venlig hilsen
Ole Sørensen
Ved direkte svar: Erstat x med o i efternavn.