Borrar .jpg

igartzi · #1 (**permalink**) 03/04/2006, 08:20

Hola al foro;

¿como puedo borrar el ".jpg" de una imagen?

para localizar los 3 carácteres utilizo esto:

If UCase(Right(SavePath1, 3)) = "JPG" Then
borrar .jpg
End If

¿Que tengo que poner en la segunda linea?

Gracias y un saludo.

gorka_arai · #2 (**permalink**) 03/04/2006, 08:58

Usa el objeto FSO (Filesystem object) junto con la propiedad:
DeleteFile (nombre, protegido)
Deletefile borra el archivo indicado como nombre. El parámetro protegido es opcional y sirve para indicar que se borre el archivo a pesar de que esté protegido contra escritura.

sjam7 · #3 (**permalink**) 03/04/2006, 09:25

creo que lo que quiere borrar no es el archivo, si lo que quieres es meter el nombre en una variable pon en la segunda linea

nombre=replace(SavePath1,".JPG","")

gorka_arai · #4 (**permalink**) 03/04/2006, 09:52

aaaaahhhh, pos a ver si nos lo aclara...

igartzi · #5 (**permalink**) 03/04/2006, 10:20

Gracias por las respuestas.

En realidad lo que quiero es esto:

Añadir a la imagen la variable vref, pero no se porque si pongo

Código:

SavePath1 = vref & SavePath1

no me funciona, es decir, la variable antes de SavePath1, en cambio, si pongo la variable detras de SavePath1 si me funciona, es decir,

Código:

SavePath1 = SavePath1 & vref & ".jpg"

de esta forma la imagen coje este nombre: imagen1.jpg.referencia.jpg. ya que SavePath1 lleva consigo .jpg porque antes de todo esto he puesto:

Código:

If UCase(Right(SavePath1, 3)) <> "JPG" Then
      SavePath1 = SavePath1 & ".jpg"
    End If

la solución que veo es quitar el primer jpg para que el nombre de la imagen quede más limpio.

Un saludo.

3pies · #6 (**permalink**) 03/04/2006, 10:43

Hazlo con la función replace. Reemplaza el texto "JPG", por "", es decir, por la nada.