NAO CONSEGUE ACHAR O DIRETORIO TEMPORARIO

 

[ô]No módulo:

[ô]====================== DIRETÓRIO TEMPORARIO DO SISTEMA ==========================

[ô]Public Declare Function GetTempPath Lib [Ô]kernel32[Ô] Alias _
 [Ô]GetTempPathA[Ô] (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
[ô]Const MAX_PATH = 255

[ô]=================================================================================

[ô]No Form:

 [ô]============== Pega o diretório temporário do Windows =================
 
 [ô]Public Function TempDir() As String
   [ô] Dim sRet As String, lngLen As Long
    
    [ô]create buffer
    [ô]sRet = String(MAX_PATH, 0)
 
    [ô]lngLen = GetTempPath(MAX_PATH, sRet)
    [ô]If lngLen = 0 Then Err.Raise Err.LastDllError
    [ô]TempDir = Left$(sRet, lngLen)
[ô]End Function

[ô]----------------------------------------------------------------------------------------------------------------------------

[ô]Aqui é o trecho que salva:

[ô]========================= Salvando arquivo no diretório temporário ===========================

Private Sub Command1_Click()

[ô]On Error GoTo skip
[ô]If Dir (TempDir & [Ô]file003355.txt[Ô]) <> [Ô][Ô] Then
[ô]Open TempDir & [Ô]file003355.txt[Ô] For Output As #1 
[ô]Write #1, Form1.Text1
[ô]Close #1
[ô]Else
[ô]Open TempDir [Ô]file003355.txt[Ô] For Append As #1 
[ô]Write #1, Form1.Text1
[ô]Close #1
[ô]End If
[ô]Form1.Text1 = [Ô][Ô]
[ô]skip:

[ô]End Sub