Visual Basic - PARA ALGUIEN QUE SEPA

Life is soft - evento anual de software empresarial
 
Vista:

PARA ALGUIEN QUE SEPA

Publicado por raul (1 intervención) el 25/07/2007 03:47:49
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!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PARA ALGUIEN QUE SEPA

Publicado por Luis Prieto (167 intervenciones) el 25/07/2007 20:03:31
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!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PARA ALGUIEN QUE SEPA

Publicado por raul (1 intervención) el 26/07/2007 03:12:17
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PARA ALGUIEN QUE SEPA

Publicado por barca1010 (132 intervenciones) el 26/07/2007 08:59:47
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"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar