Problemer med drev

Hej Søren.

Du må tilføje en error handling, der afværger at dit program går i stå og i stedet meddeler brugeren årsagen til fejlen og hvad det så skal gøres.

Inden jeg kaster mig ud i kodeskrivning, så fortæl om du kender til errorhandling i VB og om du har læst i on-linehjælpen om 'on error goto'

M.v.h.  Jørn

Du skal lave er error som denne her : on errror resume next. Den linje putter du bare i topen af din sub/function.
Hilsen Lars

>> lcl-lars
Jeg har forsøgt med On Error Resume Next.
Problemet er så, at min løkke altid vælger D-drevet, som er det første bogstav i rækken.

>> Jørn
Jeg kender godt On Error Goto, men jeg kan ikke "hitte ud af" hvad jeg skal gøre når jeg får fejlkode 52
/Søren

Kan man ikke finde ud af. hvilken type drev, der er tale om?
/Søren

Hej Søren.

I en applikation har jeg følgende vedr. diskettedrevet:

Private Sub knjurtil_Click()
  On Error GoTo ingendisk3
  FileCopy doksti & Right(lstkunde.Text, 8) & "." & ext, "a:\" & Right(lstkunde.Text, 8) & "." & ext
  knjurtil.Enabled = False
  Exit Sub
ingendisk3:
X = MsgBox("Der er ingen diskette i drev a: eller disken er fuld.", 48, "Medd. fra 'kopier til diskette.")
  Exit Sub
  Resume Next
End Sub

Læg mærke til at der er et par lange linier - de skal selvfølgelig være ud i ét.

Programmet går ikke i stå når disketten mangler, men venter på ny 'ordre', - f.eks. at der indsættes en diskette.  Så må brugeren trykke på kanppen igen.

Du kan også lave en 'select case' - der giver forskellige muligheder efter hvilket nr. fejlkoden har.

Select Case Error(nr)  se:  'Trappable Errors' i hjælpen

M.v.h.  Jørn

Prøv lige og smid den her kode ind på en ny form1 og se :-)


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

Private Const INVALID_HANDLE_VALUE = -1
Private Const MAX_PATH = 260

Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * MAX_PATH
        cAlternate As String * 14
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Public Function FileExists(ByVal strPath As String) As Boolean
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long
  hFile = FindFirstFile(strPath, WFD)
  FileExists = hFile <> INVALID_HANDLE_VALUE
  Call FindClose(hFile)
End Function

Public Function BackupExists(ByVal strFile As String) As String
Dim i As Integer
Dim strDrive As String
  BackupExists = "Kan ikke finde nogle backup."
  For i = 67 To 90 'Loop fra A=65 til Z=90 (C=67)
    strDrive = Chr$(i) & ":\" '(C til Z:\)
    If FileExists(strDrive & strFile) Then
      BackupExists = "Backup file på " & strDrive
      Exit For
    End If
  Next i
End Function

Private Sub Form_Load()
  'her skriver du den file som du søger efter (counts.ini)
  Me.Caption = BackupExists("counts.ini")
End Sub
'----------------------- Form1 -----------------------

>> Tak for det sjh
Det var lige netop løsningen
/Søren

selv tak