schreiben der Datei im %TEMP% schlägt im hintergrund fehl

Habe ich diese Funktion schreibt in meine log-Datei. Es nicht still. In diesem gibt es keine Fehler, die in dieser Funktion, es ist einfach nicht erstellen oder schreiben in die Datei. Ich bin versucht, zu schreiben, zu %TEMP%\myappname.log. Es versagt auch in %USERPROFILE%\Desktop\myappname.log. Server ist Windows Server 2008 R2 Standard.
Ich habe Probleme mit dem schreiben in den Ordner der Anwendung mit anderen Programmen, so bewegt zu schreiben, um die %TEMP% Verzeichnis und dieses gelöst. Aber dieses system wird nicht einmal lassen Sie mich schreiben, die %TEMP% - Verzeichnis.
Ja, ich habe versucht, als administrator ausgeführt und es hat nicht geholfen.
%TEMP% in diesem Fall löst durch ExpandEnvironmentStrings zu C:\Users\sa\AppData\Local\Temp\2
So g_strLogPath ist C:\Users\sa\AppData\Local\Temp\2\myappname.log.

Public Function LogMessage(ByVal strInput As String, Optional ByVal blnDate As Boolean = False) As Boolean

   Dim intFileNumber As Integer

   On Error GoTo ErrorHandler

   If g_lngLogLevel <> 1 Then
      Exit Function
   End If

   If Len(g_strLogPath) = 0 Then
      SetLogPath
   End If

   If blnDate Then
      strInput = Format(Now, cstrLogDateFormat) & " : " & strInput
   End If

   intFileNumber = FreeFile
   Open g_strLogPath For Append As #intFileNumber
   Print #intFileNumber, strInput
   Close #intFileNumber

   LogMessage = True

   Exit Function

ErrorHandler:

   MsgBox _
      "Error: " & Err.Number & vbCrLf & _
      "Location: Module1.LogMessage" & vbCrLf & _
      "Line: " & Erl & vbCrLf & _
      Err.Description, vbExclamation + vbOKOnly

End Function
Das code-snippet doesn ' T scheinen zu zeigen, den Pfad, den Sie verwenden, so wie wir wissen, es ist wirklich %TEMP%? (Es könnte ausreichen, um zu kommentieren, was der Wert von g_strLogPath stellt sich heraus zu sein.)
überarbeitete code und fügen vollständigen Pfad der log-Datei

InformationsquelleAutor Will Rickards | 2012-05-03

Schreibe einen Kommentar