PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Option Explicit
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Function TempDizini() As String
Dim Yol As String, Uz
Yol = String(260, Chr(0))
Uz = GetTempPath(260, Yol)
Yol = Left(Yol, Uz)
If Right(Yol, 1) <> "\" Then Yol = Yol + "\"
TempDizini = Yol
End Function
Alıntıdır.