Tjek om disk findes

Du kunne jo lave en error handling, med en msgbox "Tjek usb-disk"

Tak for hurtig tilbagemelding, men hvordan laver jeg en error handling på om en disk findes eller ej ??

Prøv dette, måske det virker:

I toppen af din kode skriver du:

On Error GoTo errhandler
'her din kopieringskode'
'som det nederste i din kode skriver du'
If err.Number = fejlnummer som koden evt. returnere Then Exit Sub

Fejlhåndteringen vil så forlade subben uden at gøre skade, og uden at der popper fejlmedelser op når din USB disk ikke klar. Bemærk at mit forslag forudsætter at du kender

Bemærk at mit forslag forudsætter at du kender fejlnummer :o)

Jeg bruger selv denne form for fejlhåndtering i mange sammenhænge i Access databaser, og det virker faktisk godt.

Jeg anvender også en kopieringskode dog til A-drevet, men metoden er den samme, jeg mener at fejlkoden er fejl 71, men er ikke sikker, når jeg når hjem i aften kan jeg poster fejlkoden her.

den kommer med en fejl ved errhandler ??
Exit sub, skal vel også stå under if err.number ??

Sorry min fejl nedentsående testet og viker:

Private Sub Kommandoknap1_Click()
On Error GoTo errhandler
FileCopy Me!Filnavn, "A:\" & ExtractFileName(Me!Filnavn)
errhandler:
If Err.Number = 71 Then Exit Sub
End Sub

Dette "FileCopy Me!Filnavn, "A:\" & ExtractFileName(Me!Filnavn)" skal naturligvis erstattes af din egen kode

Her en lidt udvidet version hvor du viser bruger din egen fejlmedelse;

Private Sub Kommandoknap1_Click()
On Error GoTo errhandler
FileCopy Me!Filnavn, "A:\" & ExtractFileName(Me!Filnavn)
errhandler:
If Err.Number = 71 Then
MsgBox "USB key mangler, indsæt denne og prøv igen", vbCritical, "USB key mangler"
Exit Sub
End If
End Sub

Hej, så havde jeg endelig tid til et hurtigt kig forbi!~)

Hvis du ikke er 100% sikker på errorkode, så kan du tage usb nøglen ud og køre koden:

Private Sub Kommandoknap1_Click()
On Error GoTo errhandler
FileCopy Me!Filnavn, "A:\" & ExtractFileName(Me!Filnavn)
errhandler:
msgbox err.number
'If Err.Number = 71 Then
'MsgBox "USB key mangler, indsæt denne og prøv igen", vbCritical, "USB key mangler"
Exit Sub
End If
End Sub

Tak til alle

Tak for point :o)

Du kan evt. checke på om folderen f:\ eksisterer med følgende kode

Public Function fhpFolder_Exists(strFolder As String) As Boolean
' -----------------------------------------------------------------------------------
' Purpose    : Check if a folder exists
' Parameters :
' Returns    : Boolean
' Created    : 03-26-02
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpFolder_Exists
  Dim fsObj                                                    'Filesystem object

  Set fsObj = CreateObject("Scripting.FileSystemObject")
  fhpFolder_Exists = fsObj.FolderExists(strFolder)

Exit_fhpFolder_Exists:
  Exit Function

Error_fhpFolder_Exists:
  Select Case Err.Number
    Case 2501
    Case 3021
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpFolder_Exists'"
  End Select
  Resume Exit_fhpFolder_Exists

End Function