Zufälliger Artikel

Problemstellung:

Wie kann ich das aktuelle temporäre Verzeichnis meines Systems ermitteln?

Folgenden Code in öffentliches Modul kopieren:

Public Declare Function GetTempPath _
    Lib "kernel32" Alias "GetTempPathA" ( _
    ByVal nBufferLength As Long, _
    ByVal lpBuffer As String) As Long
    
Public Function GetTempFolder() As String
    Dim strTempFolder As String
    Dim lngRet As Long
    strTempFolder = String(255, 0)
    lngRet = GetTempPath(255, strTempFolder)
    If lngRet <> 0 Then
        strTempFolder = Left(strTempFolder, lngRet)
        GetTempFolder = Left(strTempFolder, _
            Len(strTempFolder) - 1)
    End If
End Function

Aufruf:

MsgBox GetTempFolder

Ergebnis:


Ähnliche Artikel

Login Form

1.png1.png9.png5.png0.png1.png8.png
Heute3
Gestern44
Diese Woche3
Dieser Monat1272
Total1195018

  • IP: 54.80.198.173
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

18. Juni 2018