none
NÃO SALVA NO DIRETÓRIO TEMPORARIO RRS feed

  • Pergunta

  • 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.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
    

    Alguém poderia dar uma dica?

    Agradeço demais.

    domingo, 25 de agosto de 2013 15:10

Respostas

  • Olá Flash, tudo bem?

    Sugiro revisar se o usuário em questão possui as devidas permissões na pasta TEMP


    Fernando Henrique da Silva – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    TechNet Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 27 de agosto de 2013 19:28
    Moderador