Visual Basic para Aplicaciones - Urgente Urgente Urgente

Con este codigo sabemos si existe un fichero.

Private Sub Form_Load()
GetAttr("C:\fichero1") (Aqui necesito comprovar si existe el fichero2)
Exit Sub

Necesito que si existe en fichero1 y no existe el fichero2 salga este mensaje
MsgBox "El fichero1 existe."

pero si no existe en fichero1 y si existe el fichero2 salga este mensaje
MsgBox "El fichero2 existe."

Dicho de otra forma:
tengo que comprovar cual de los dos ficheros existe.

Muchisimas gracias

Usa este codigo...

If Len(Dir("C:\Mis documentos\Prueba.xls")) > 0 Then
MsgBox "Archivo existe"
Else
MsgBox "El archivo no existe"
End If

El codigo anterior funciona para comprobar un fichero, pero vuelvo a plantear nuevamente la pregunta

Al iniciar un form necesito reconocer el directorio de windows para hacer una operacion u otra:
Si existe el directorio Windows tiene que hacer una operacion.
Si existe el directorio winnt tiene que hacer otra operacion distinta

Muchas gracias por su ayuda
ya tengo solucionado el problema.

Eso no fue lo que preguntaste, por mas que leo y releo tu mensaje anterior, no veo dondes preguntas acerca del directorio de Windows, solo veo esto...

Necesito que si existe en fichero1 y no existe el fichero2 salga este mensaje
MsgBox "El fichero1 existe."

pero si no existe en fichero1 y si existe el fichero2 salga este mensaje
MsgBox "El fichero2 existe."

Dicho de otra forma:
tengo que comprovar cual de los dos ficheros existe.

Pero bueno, para comprobar la existencia de un directorio, usas la misma función...

If Len(Dir("C:\Windows", vbDirectory)) > 0 Then
MsgBox "Directorio existe"
Else
MsgBox "Directorio NO existe"
End If

Recuerda que puedes tener un directorio Windows y tener el SO Windows instalado en cualquier otro directorio, si lo que quieres es saber en que directorio esta instalado Windows, usa una funcion del API...

'Funcion para encontrar el directorio de Windows
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function BuscarWin() As String
Dim Cadena As String
Dim Res As Long
Dim WinDir As String

Cadena = String$(300, Chr$(0))
Res = GetWindowsDirectory(Cadena, Len(Cadena)) 'Busca el directorio de Windows
WinDir = Left$(Cadena, Res)
If Right(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
BuscarWin = WinDir
End Function

BuscarWin te devolvera la ruta donde este

Hola mauricio, perdona pero no explique correctamente lo que queria hacer,
lo he solucionado de la siguiente manera, Muchisimas gracias

n = Dir$("C:\winnt", vbDirectory)
w = Dir$("C:\windows", vbDirectory)
If n = winnt And w <> windows Then
Else
canalLibre = FreeFile
Open "C:\winnt\system\softalf.ini" For Output As #canalLibre
Print #canalLibre, "FreeFile@|\23+@As Integer|[´@¬#|32`+#23+`322@23+@|[´@¬#|32`+#23+|[´@¬#|32`+#23+@|[´@¬#|32`+#23++,,çç´´@¬#|32`+#23+`322@23+@|[´@¬#|32`+#23+|[´@¬#|32`+#23+@|[´@¬#|32`+#23++,,çç´´@¬#|32`+#2322@|[++,,çç´´çç´´`+`+#2322322@|[++,,çç´´çç´´`+`+#232213@"
End If

If n <> winnt And w = windows Then
Else
canalLibre = FreeFile
Open "C:\windows\system\softalf.ini" For Output As #canalLibre
Print #canalLibre, "FreeFile@|\23+@As Integer|[´@¬#|32`+#23+`322@23+@|[´@¬#|32`+#23+|[´@¬#|32`+#23+@|[´@¬#|32`+#23++,,çç´´@¬#|32`+#23+`322@23+@|[´@¬#|32`+#23+|[´@¬#|32`+#23+@|[´@¬#|32`+#23++,,çç´´@¬#|32`+#2322@|[++,,çç´´çç´´`+`+#2322322@|[++,,çç´´çç´´`+`+#232213@"
Close #canalLibre
End If

Pregunta, ¿y si Windows se instalo en otro directorio??...

El programa no funcionaria
Daria problemas de instalacion al grabar el fichero.

Te repito mi respuesta...

Recuerda que puedes tener un directorio Windows y tener el SO Windows instalado en cualquier otro directorio, si lo que quieres es saber en que directorio esta instalado Windows, usa una funcion del API...

'Funcion para encontrar el directorio de Windows
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function BuscarWin() As String
Dim Cadena As String
Dim Res As Long
Dim WinDir As String

Cadena = String$(300, Chr$(0))
Res = GetWindowsDirectory(Cadena, Len(Cadena)) 'Busca el directorio de Windows
WinDir = Left$(Cadena, Res)
If Right(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
BuscarWin = WinDir
End Function

BuscarWin te devolvera la ruta donde este instalado, la que sea