Årsagen er sikkeret rettigheder. Du får ikke lov til at åbne folderen
"System Volume Information",
selv om du er administrator. Du bliver nød til at lave en fejlhåndtering der
tager vare om problemet.
- Niels G.
"Carsten Rosendahl" <Carsten.Rosendahl@get2net.dk> wrote in message
news:3BE66F27.8D094057@get2net.dk...
>
>
> "@sbjørn" wrote:
>
> > Vis os noget kode!
> > det virker fint her på min w2k
>
> Sub gennemløb(mappe As String, antal As Long, filer As Long, plads As
> Double)
> Dim mapper() As String
> 'Dim filer As Long
> Dim MyName As String
> Dim antalentries As Integer
> Dim i As Long
>
> antalentries = 0
> MyName = Dir(Replace(mappe & "\*.*", "\\", "\"), vbDirectory + vbHidden
+
> vbSystem)
> Do While MyName <> ""
> If MyName <> "." And MyName <> ".." Then
> flbl.Caption = UCase(Replace(mappe & "\" & MyName, "\\",
"\"))
> If (GetAttr(Replace(mappe & "\" & MyName, "\\", "\")) And
> vbDirectory) = vbDirectory Then
> ReDim Preserve mapper(antalentries)
> mapper(antalentries) = MyName
> antalentries = antalentries + 1
> ' Debug.Print mappe & MyName
> Else
> filer = filer + 1
> plads = plads + FileLen(Replace(mappe & "\" & MyName, "\\", "\"))
> slbl.Caption = plads
> End If
> End If
>
> MyName = Dir
> Loop
> If antalentries > 0 Then
> For i = 0 To UBound(mapper)
> gennemløb mappe & "\" & mapper(i), antal, filer, plads
> Next
> antal = antal + 1
> End If
> End Sub
>
> Private Sub Command1_Click()
> Dim antal As Long
> Dim filer As Long
> Dim plads As Double
> antal = 1
> gennemløb "D:\", antal, filer, plads
> MsgBox "D
revet indeholder: " & vbLf & antal & " mapper" & vbLf & "og"
&
> vbLf & filer & " filer."
> End Sub
>
>
>
>
>
> >
> > "Carsten Rosendahl" <Carsten.Rosendahl@get2net.dk> skrev i en meddelelse
> > news:3BE65C05.D2024F69@get2net.dk...
> > > Hejsa Venner.
> > >
> > > Jeg har et problem:
> > >
> > > I VB6 under WinME har jeg lavet et lille prog, der bruger
> > > Dir-funktionen.
> > > Når programmet køres på en Win2K, giver det en fejlmelding..
> > > Hvad er problemet?
> > >
> > > På forhånd tak for svarene
> > >
> > > Carsten
> > >
>