Visual Basic - PARA ALGUIEN QUE SEPA

HOLA QUE TAL, NECESITO QUE ME AYUDEN CON ALGO, COMO HAGO PARA OBTENER EL NOMBRE DEL ARCHIVO DE UN FILELISTBOX PARA LUEGO COMPARARLO CON OTRO ARCHIVO, YO LO HAGO ASI PERO NO ME ANDA:

Var = File1.Path + "\" + File1.FileName

If var = File1.Path + "\BASE.mdb" Then

......................


***(File1.Path + "\" + File1.FileName) ARCHIVO QUE SELECCIONO DEL FILELISTBOX

*(**File1.Path + "\BASE.mdb") ARCHIVO CON EL QUE QUIERO COMPARAR EL ARCHIVO DEL FILELISTBOX

O SEA NECESITO OBTENER EL NOMBRE DEL FILELISTBOX PARA VER SI ES IGUAL A OTRO

GRACIAS!

Hola, Raul!!

Prueba de esta manera. Debes de inicializar la ruta donde buscara y ademas para concatenar siempre trata de usr el "&" es mejor.

Private Sub Command1_Click()
Var = File1.Path & "\" & File1.FileName
If Var = File1.Path & "\BASE.MDB" Then
MsgBox "iguales"
End If
End Sub

Private Sub Form_Load()
'aca debes inicializar la ruta
File1.Path = "C:\Contador\Formularios"
End Sub

PDTA: cualquier otra duda escribeme.

Saludos!!!

hola luis, no me anduvo, me tira el mismo error de antes, asi lo hice:

If vsiono = vbYes Then

Var = File1.Path & "\" & File1.FileName
If Var = File1.Path & "\BASE.mdb" Then

Dim archivo As String
Dim Base_Original As String, Base_Backup As String
Dim Fs As Variant

Base_Original = Var
Base_Backup = App.Path & "\DB.mdb"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile Base_Original, Base_Backup, True

Else

MsgBox "Archivo Incorrecto"

End If

End If


hago esto para una restauracion de la base, o sea, para que el usuario elija donde esta la base que va a restaurar, gracias igual por contestar

Utiliza este codigo para ver si te puede ser util, lo unico que le he agregado es el UCASE porque cuando haces la comparacion el distingue entre mayusculas y minuslas

Dim Var As String
Dim Var2 As String

Var = File1.Path & "\" & File1.FileName
Var2 = File1.Path & "\DB.mdb"
If UCase(Var) = UCase(Var2) Then
MsgBox "Archivo Correcto"
else
MsgBox "Archivo Incorrecto"
end if
MsgBox "no"