/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Finde størrelsen på filer i forskellige un~
Fra : Ole Sørensen


Dato : 17-06-02 12:32

   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.

 
 
Ole Sørensen (17-06-2002)
Kommentar
Fra : Ole Sørensen


Dato : 17-06-02 15:28

On Mon, 17 Jun 2002 13:31:36 +0200, Ole Sørensen
<ole.sxrensen@adslhome.dk> wrote:

>   Hej alle

Ikke nødvendigt, har selv løst problemet

>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
    filFiler.Path = sSti(oI) <-- Det var alt    
> 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

[Klip] en masse

>   Er der nogen der kan hjælpe?

Jeg vil dog gerne have alternative forslag
--
Med venlig hilsen
Ole Sørensen

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste