No sale nada. En realidad ya estoy hecho bola... Mira lo ke he hecho
Public Sub Rename(OldName As String, NewName As String)
Dim OldName, NewName As String
NombreStr = Format$(Date, "yyyymmdd")
OldName = "C:\ejemplo\renom"
NewName = "C:\ejemplo\" & NombreStr
Rename(OldName, NewName) = "NewName"
' Muevo y renombro archivo
End Sub
Private Sub ren_Click()
MsgBox NewName
End Sub
sé ke por ahi tengo algún error garrafal pero no sé cuál sea. No sé utilizar bien las funciones
