Buen día,
Tengo la siguientes dudas, espero y alguien me pueda ayudar.
Tengo una macro que genera un archivo txt en mis documentos, pero ¿como le puedo hacer para que el nombre del txt siempre sea diferente al generar el archivo? Esto con la finalidad de la sobrescritura del mismo, ya sea que se guarde con el hostname de nombre del txt.
Sub ip()
Dim programa As String
Dim Ide As Double
On Error Resume Next
programa = "cmd.exe"
Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
If Err <> 0 Then
MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
End If
End Sub
En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Function GetMyPublicIP() As String
Dim HttpRequest As Object
On Error Resume Next
'Create the XMLHttpRequest object.
Set HttpRequest = CreateObject("MSXML2.XMLHTTP")
'Check if the object was created.
If Err.Number <> 0 Then
'Return error message.
GetMyPublicIP = "Could not create the XMLHttpRequest object!"
'Release the object and exit.
Set HttpRequest = Nothing
Exit Function
End If
On Error GoTo 0
'Create the request - no special parameters required.
HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
'Send the request to the site.
HttpRequest.Send
'Return the result of the request (the IP string).
GetMyPublicIP = HttpRequest.ResponseText
End Function
Saludos y gracias de antemano.
HOLA!!!
Para que el nombre del txt siempre sea diferente, podes crear un nombre con la funcion RND y usando Randomize antes. o para algo mas simple podes usar la funcion timer.
Cabe destacar que es posible que con un poco de mala suerte tengas 2 archivos con el mismo nombre, todo va a depender de que tan largo sea el numero aleatorio que elijas.
GRACIAS POR LEER!!!