Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" _
  (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
  ByVal bFailIfExists As Long) As Long
Dim LW As String
 
 
 
Private Sub Form_Load()
LW = "L:"
End Sub
 
Private Sub Timer1_Timer()
Dim Drive As String
Dim Retval As Long
Dim sFolder As String
Dim sCopyTo As String
Drive = LW
If IsDriveReady(Drive) And Check2.Value = 0 Then
  Check1.Value = 1
  Retval = CopyFile(LW + "\techno\*.*", "c:\MP3\techno\*.*", 0)
  Retval = CopyFile(LW + "\Mettal\*.*", "c:\MP3\Mettal\*.*", 0)
  Retval = CopyFile(LW + "\Pop _Schlager_Hipigfrast_Other @!#$\*.*", _
    "c:\MP3\Pop _Schlager_Hipigfrast_Other @!#$\*.*", 0)
  Retval = CopyFile(LW + "\Rap_Hip_Hop\*.*", "c:\MP3\Rap_Hip_Hop\*.*", 0)
  Retval = CopyFile(LW + "\CARPROGRAMM\*.*", "c:\CARPROGRAMM\*.*", 0)
  Check2.Value = 1
 
Else
 Check1.Value = 0
End If
 
End Sub

Public Function IsDriveReady(ByVal Drive As String) _
 As Boolean
 
 
  Dim OldDrive As String
  Dim Result As Boolean
 
  On Local Error Resume Next
  OldDrive = CurDir()
  ChDir Drive
  Result = (Err = 0)
  ChDir OldDrive
  On Local Error GoTo 0
 
  IsDriveReady = Result
End Function