1.- Cread un agente y pegad el siguiente código en "Declarations":
Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" (Byval nBufferLength As Long, Byval lpBuffer As String) As Long
Declare Function GetTempFileName Lib "kernel32.dll" Alias "GetTempFileNameA" (Byval lpszPath As String, Byval lpPrefixString As String, Byval wUnique As Long, Byval lpTempFileName As String) As Long
2.- Pegad esta otra porción de código en el evento "Initialize" del agente:
Dim rutaTemporal As String ' ruta del directorio temporal
Dim fchTemporal As String ' nombre del fichero temporal
Dim nombreTemp As Long ' valor hexadecimal asignado aleatoriamente.
Dim tamCadena As Long 'Tamaño de la cadena resultante.
' Obtenemos la ruta del directorio "TEMP" de windows.
rutaTemporal = Space(255) ' Ampliamos el buffer.
tamCadena = GetTempPath(255, rutaTemporal)
rutaTemporal = Left(rutaTemporal, tamCadena)
' Obtenemos un nombre de fichero temporal único y aleatorio.
fchTemporal = Space(255) ' Ampliamos el buffer.
nombreTemp = GetTempFileName(rutaTemporal, "nft", 0, fchTemporal) 'El 2º parámetro son las letras iniciales del nombre del fichero. Sólo admite 3 caracteres.
'Mostramos el resultado.
Msgbox "Ruta temporal: " & rutaTemporal & Chr(13) & "Nombre fichero generado: " & fchTemporal
|
Otros documentos de LotusScript
|