' Kopiert Daten von CD und entfernt das Schreibschutzflag
' Christian Breitenstein 
' Focke & Co
' 2001

Option Explicit

Dim wshshell
Dim fso
Dim Arguments
Dim FileAcc,TargetFile
Dim Source,Target

Set wshshell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Arguments = WScript.Arguments

If Arguments.Count <> 2 Then
    WScript.Quit 3
End If

Source = Arguments(0)
Target = Arguments(1)

If Right(Target,1) <> "\" Then
    Target = Target & "\"
End If   

TargetFile = Target & fso.GetBaseName(Source) & "." & fso.GetExtensionName(Source)
If fso.FolderExists(Target) Then
    On error Resume Next
    If fso.FileExists(TargetFile) Then
        Call fso.DeleteFile(TargetFile,True)
    End If
    Call fso.CopyFile(Source,Target,True)
    If err.Number <> 0 Then
    	MsgBox "Cannot copy " & Source
    End If
    If Instr(TargetFile,"*") = 0 Then
    	Set FileAcc = fso.GetFile(TargetFile)
    	FileAcc.Attributes = FileAcc.Attributes And Not 216 And Not 1
    End If
End If        

WScript.Quit 1