Ejemplos usando el Api de windows para Visual basic

258 - GetTempFileName

Función del api para generar archivos temporales

Descripción

El ejemplo usa una función de tipo String que retorna la ruta del archivo

Colocar el siguiente código fuente en el formulario con un control Command1

' declaración del api GetTempFileName Private Declare Function GetTempFileName _ Lib "kernel32" _ Alias "GetTempFileNameA" ( _ ByVal lpszPath As String, _ ByVal lpPrefixString As String, _ ByVal wUnique As Long, _ ByVal lpTempFileName As String) As Long ' función que retorna la ruta ''''''''''''''''''''''''''''''''''''''' Private Function Archivo_Temporal() As String ' buffer de retorno Dim sTemp As String Dim ret As Long sTemp = String(260, 0) 'Environ("temp") : devuelve el directorio temporal del usuario ret = GetTempFileName(Environ("temp"), "TTT", 0, sTemp) ' quita los espacions nulos en la cadena Archivo_Temporal = Left$(sTemp, InStr(1, sTemp, Chr$(0)) - 1) End Function Private Sub Command1_Click() ' ejecuta la función y muestra el resultado MsgBox Archivo_Temporal, vbInformation, "Archivo temporal" End Sub Private Sub Form_Load() Command1.Caption = "Crear temp File" End Sub

Buscar en Recursos vb