AYuda!!!!!

jairo
15 de Abril del 2004
Ayuda tengo ke realizar un programa para cambiar el nombre de unas fotos dependiendo de si el nombre es un dni o un numero de telefono.
Creo ke el programa falla en el like.

'El problema es q este codigo deberia poner
'cuando es cuando es un numero de telefono una almoadilla entre
'el nombre de el archivo y la extension una #
'y cuando es un numero de telefono 00 despues el nombre y despues
'un _ y luego la extension pero siempre va a al dni aunque empieze
'por 985

Private Sub Cmdrem_Click()

nombre = Mid(nombre, 1, Len(nombre) - 4)

If nombre Like 985 Then 'No me deja poner 985%
nombre = nombre & "#" & ".jpeg" 'PROBLEMA: Nos guarda el nombre con su extension
MsgBox nombre
Else
'Si el nombre es un DNI
nombre = 0 & 0 & nombre & "_" & ".jpeg"
MsgBox nombre
End If

Name Dialog.FileName As "C:WINDOWSEscritorio" & nombre

End Sub

rafa
15 de Abril del 2004
Hola Jairo.
Like te compara cadenas de texto
Lo primero es que los textos tienes que ponerlos entre comillas.
y usa el * en vez del % (este se usa en sentencias sql)

If nombre Like "985*" Then ' 985 debemos tratarlo como texto al usar like