Postada em 25/08/2013 11:54 hs
Boa tarde,
estou tendo problemas para salvar arquivos no diretório temporário do Windows, eu mando salvar, depois simplesmente quando vou ver se o arquivo está lá, não está.
Veja o código que estou usando:
'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.MaxDllError
'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
Alguém tem alguma dica?
Brigadão!
|
