Amigos, les pido su ayuda, lo que quiero lograr es que a través de un optionbuton renombrar una carpeta, al seleccionar el optionbuton y presionar el botón aplicar se renombra un archivo.
El problema es que cuando el archivo ya se renombra, al volver a seleccionar el mismo botón, como el archivo ya fue renombrado, me da el error de (No se ha encontrado el archivo)
Este es el código:
CitarPrivate Sub opci_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option19.Value = True Then
Name "c:\a.txt" As "c:\archivo.txt"
MsgBox "Fuente por defecto", vbInformation + vbOKOnly
Else: Option19.Value = False
MsgBox "Fuente cambiada", vbInformation + vbOKOnly
End If
Gracias amigos :D
pues agrega un procedimiento para saber si el archivo existe y si es así que se produzca el renombrado en caso contrario que omita el procedimiento.
Cita de: tincopasan en 18 Diciembre 2013, 05:41 AM
pues agrega un procedimiento para saber si el archivo existe y si es así que se produzca el renombrado en caso contrario que omita el procedimiento.
Gracias por responder amigo, la verdad es que me parece efectiva la idea, pero no tengo los conocimientos para hacerlo, podrías orientarme un poquito por favor
Gracias amigos ;-)
me parece que una forma relativamente fácil es hacer algo así:
Private Function Valida() As Boolean
On Error GoTo fallo
x = GetAttr("c:\a.txt")
Valida = True
Exit Function
fallo:
Valida = False
Exit Function
End Function
Private Sub opci_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option19.Value = True Then
if valida then
Name "c:\a.txt" As "c:\archivo.txt"
MsgBox "Fuente por defecto", vbInformation + vbOKOnly
Else: Option19.Value = False
MsgBox "Fuente cambiada", vbInformation + vbOKOnly
end if
End If
Perfecto amigo, un millón de gracias :D
Perdón por el doble post, gracias por la ayuda ;-)