/ 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
Dir og WIN2K
Fra : Carsten Rosendahl


Dato : 05-11-01 10:30

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


 
 
@sbjørn (05-11-2001)
Kommentar
Fra : @sbjørn


Dato : 05-11-01 11:35

Vis os noget kode!
det virker fint her på min w2k
"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
>



Carsten Rosendahl (05-11-2001)
Kommentar
Fra : Carsten Rosendahl


Dato : 05-11-01 11:51



"@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 "Drevet 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
> >


Andrew Engels Rump (~ (05-11-2001)
Kommentar
Fra : Andrew Engels Rump (~


Dato : 05-11-01 16:19

After drinking 3 Pan Galactic Gargle Blasters, Carsten Rosendahl
<Carsten.Rosendahl@get2net.dk> mumbled in news:3BE65C05.D2024F69
@get2net.dk:
> 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?

Hvad med selv at prøve at debugge dig frem til nogle svar?
- GetAttr fejler hvis den forsøger at åbne pagefile.sys.
- Dir fejler (på min maskine) f.eks. på "...:\\System Volume
Information" - højst sandsynlig af samme årsag som pagefilen.
- ...

Bare ved at kigge på indholdet af variable i VB, når programmet
fejler giver ofte en meget god forklaring på hvorfor dette eller
hint ikke fungere. Derefter kan vi hjælpe dig med at forklare
hvorfor det går galt og hvordan du kommer videre!

Jeg vil f.eks. helt klart forslå at du implementere en
fejlhåndterings rutine, som bringer dig videre selvom nogle filer
ikke kan åbnes.

After drinking 3 Pan Galactic Gargle Blasters, Carsten Rosendahl
<Carsten.Rosendahl@get2net.dk> mumbled in
news:3BE66F27.8D094057@get2net.dk:

> Sub genneml›b(mappe As String, antal As Long, filer As Long, plads As
> Double)
> ...
> For i = 0 To UBound(mapper)

Når nu du bruger UBound, hvorfor bruger du ikke også LBound?

Andrew
--
*** The opinions expressed are not necessarily those of my employer. ***
* Software Engineer Andrew Engels Rump * BLIK og ROERarbejderforbundet *
* Immerkaer 42, 2650 Hvidovre * Tlf: +45 3638 3638, Fax: +45 3638 3639 *
Home: N55°41'38.9" E12°29'08.6" (WGS 84) Work: N55°41'14.3" E12°32'37.5"
E-mail: mailto:andrew@rump.dk * WWW: http://www.rump.dk/homepage/andrew/

Niels G (05-11-2001)
Kommentar
Fra : Niels G


Dato : 05-11-01 16:29

Å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 "Drevet 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
> > >
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste