---

Hej!

Jeg skal bruge en liste over lokale drev, og har fundet en metode der
virker. Den er bare LIDT lang, for sådan en forholdsvis lille opgave.
Kender i nogen nemmere (kortere) måder at gøre det på?

'først finder vi ud af hvor mange drev der er
x=-1
For Each Drive In Drives
   If Drive.IsReady AND Drive.DriveType = 2 Then
      x=x+1
   End If
Next

'her laver vi så et array i den rigtige størrelse
redim DriveArray(x)

'og endelig propper vi dataene ind i arrayet her
x=0
For Each Drive In Drives
   If Drive.IsReady AND Drive.DriveType = 2 Then
      DriveArray(x) = Drive.DriveLetter
      x=x+1
   End If
Next

--
Regards Sir Ghashûl, Knight of The alt.Roundtable <><
ICQ: 7223629
E-mail: stefan@bruhn.to
URL: http://www.ghashul.dk

---

"Ghashûl" <ghashul@ghashul.dk> wrote in message
news:rkdv8t4eo7hp9eoqaqf7sfm5g250s6p2qf@ghashul.dk...
> Hej!
Davs!

>
> Jeg skal bruge en liste over lokale drev, og har fundet en metode der
> virker. Den er bare LIDT lang, for sådan en forholdsvis lille opgave.
> Kender i nogen nemmere (kortere) måder at gøre det på?
Hvad med denne her: (obs - hvis der ikke findes nogle drev der passer, vil
Ubound(DriveArray) være -1)
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drives = fso.Drives
For Each Drive In Drives
If Drive.IsReady AND Drive.DriveType = 2 Then
strAr = strAr & " " & Drive.DriveLetter
End If
Next
DriveArray = Split(strAr)
%>

\Emil
*Slem lama!*