this code run in the visual basic program but generate program instalation and install in the other machine run apperance this message:

Runtime error 429:

componet activex can't create thhe object.

the error occurs in the code:


Set fs= createObject"Scripting.FileSystemObject")
Set d = fs.GetDrive("A:\")
If d.isready Then
FileCopy (path1 & Trim(Str(i)) & "\" & ver), "a:\" & ver
Kill (path1 & Trim(Str(i)) & "\" & ver)
Else
MsgBox "Inserte un Disco en la Unidad A:\ - luego presione Aceptar", vbExclamation, "Error"""
FileCopy (path1 & Trim(Str(i)) & "\" & ver), "a:\" & ver
Kill (path1 & Trim(Str(i)) & "\" & ver)
End If