Hvis alle drevene på pc

Det vigtigste er lige i første omgang at få den til at skrive alle drevene

http://www.devguru.com/Technologies/vbscript/quickref/drivescollection.html
Kan du læse om hvordan du får alle drev.

http://www.devguru.com/Technologies/vbscript/quickref/drive_drivetype.html
Skal du bruge hvis du vil se hvilken type det er

Her er en funktion fra VBScript doc'en..

<%
Function ShowDriveList
  Dim fso, d, dc, s, n
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set dc = fso.Drives
  For Each d in dc
      n = ""
      s = s & d.DriveLetter & " - "
      If d.DriveType = Remote Then
        n = d.ShareName
      ElseIf d.IsReady Then
        n = d.VolumeName
      End If
      s = s & n & "<BR>"
  Next
  ShowDriveList = s
End Function
%>

- Rou

.. og iøvrigt, hvordan du får drevtypen:

<%
Function ShowDriveType(drvpath)
  Dim fso, d, t
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(drvpath)
  Select Case d.DriveType
      Case 0: t = "Unknown"
      Case 1: t = "Removable"
      Case 2: t = "Fixed"
      Case 3: t = "Network"
      Case 4: t = "CD-ROM"
      Case 5: t = "RAM Disk"
  End Select
  ShowDriveType = "Drive " & d.DriveLetter & ": - " & t
End Function
%>

hvordan kalder man så teksten frem det er jo abre funktioner. ??

<%
Function ShowDriveList
  Dim fso, d, dc, s, n
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set dc = fso.Drives
  For Each d in dc
      n = ""
      s = s & d.DriveLetter & " - "
      If d.DriveType = Remote Then
        n = d.ShareName
      ElseIf d.IsReady Then
        n = d.VolumeName
      End If
      Select Case d.DriveType
      Case 0
      t = "Unknown"
      Case 1
t = "Removable"
      Case 2
t = "Fixed"
      Case 3
t = "Network"
      Case 4
t = "CD-ROM"
      Case 5
t = "RAM Disk"
      End Select

      s = s & n & " " & t & "<BR>"
  Next
  ShowDriveList = s
End Function
%>

måske

Tak drean