Visual Basic - Copiar Archivo con VB

En vb 6.0 existe alguna función o alguna forma de chequear la existencia de un archivo en un directorio determinado, y si existe copiarlo a otro directorio ?

Les agradesco su ayuda

Mira el Vb tiene muchas funcionalidades entre ellas hay una referencia que se llama Microsoft Scripting Runtime, ya esta referencia te permite trabajar con archivos y varias cosas del windows para tu pregunta yo asumo que el archivo que quieres está en la unidad C:\
y se llama colegio.doc y pon el siguiente codigo
en un cmdgrabar o cualquier otra procedimiento
Private Sub cmdGrabar_Click()
Dim sX As Scripting.FileSystemObject
On Error GoTo xerror
Set sX = New Scripting.FileSystemObject
If sX.FileExists("c:\Colegio.doc") Then
MsgBox "El Archivo Existe"
sX.CopyFile "C:\Colegio.doc", "c:\Mis documentos\", True
Else
MsgBox "El archivo no existe"
End If
Exit Sub
xerror:
MsgBox Err.Description

End Sub

Usa la función Dir para ver si existe, si no existe devuelve una cadena vacia.
if len(Dir ( Camino))>0 then CopyFile Origen,Destino

existe la funcion DIR que puedes usar
supongamos que buscas un archivo dentro del directorio Mi Directorio el codigo seria asi:

Dim Existe As String
Existe = Dir("D:\Mi Directorio\Archivo.exe", vbDirectory)

si existe te retorna el path completo del archivo si no devuelve una cadena vacia entonces solo colocas

If Existe = VBNullString then
MsgBox("No Existe Archivo")
Else
MsgBox("Si Esite Archivo")
End If

espero te sirva
Chao

Ups

es la constante vbArchive en ves de vbDirectory
si lo encuentras usas FileCopy para copiar el archivo de esta forma

FileCopy(archivo a copiar, a donde lo quieres copiar)
maCo