Diskette i diskdrevet

Eksempel:

  Dim fso As FileSystemObject
  Dim drv As Drive
 
  Set fso = New FileSystemObject
  Set drv = fso.Drives("A")
  If drv.IsReady Then
    MsgBox "A er klar"
  Else
    MsgBox "A er ikke klar"
  End If

Er der en kommando der hedder OpenDir???

if(OpenDir("A:\"))
' A virker
else
' A virker ikke

>>venne
Hos mig er "FileSystemObject" ikke en gyldig Type?

stry>
Under Project - References: sæt kryds i "Microsoft Scripting Runtime".

Smart funktion!

eller skriv

Set fso = CreateObject("Scripting.FileSystemObject")

'----------------------- Form1 -----------------------
Option Explicit

Private Declare Function PathIsDirectory Lib "shlwapi.dll" _
                        Alias "PathIsDirectoryA" ( _
                        ByVal pszPath As String) As Long

Private Sub Form_Load()
Dim strDrive As String
  strDrive = "A:\"
  If CBool(PathIsDirectory(strDrive)) Then
    MsgBox strDrive & " er klar."
      Else
    MsgBox strDrive & " er ikke klar."
  End If
End Sub
'----------------------- Form1 -----------------------

Sjh Har ret det virker bare sæt Dim strDrive As String
  strDrive = "A:\"
  If CBool(PathIsDirectory(strDrive)) Then
    MsgBox strDrive & " er klar."
      Else
    MsgBox strDrive & " er ikke klar."
  End If

Det der ind i en knap