Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Cartella temp di windows a 16 bit. Come Reperirla con api?

come da oggetto

 come da oggetto
Environ di VB non potrebbe andar bene lo stesso? Perche', se non sbaglio,
con le API c'era solo:
LPSTR GetDOSEnvironment(void)
Ciao.
Maurizio

Io in VB3 per rerire la Dir di Win faccio così, magari da qui riesci a
risalire a come dichiarare la dir TemP:
Declare function GetWindowsDirectory% lib "Kernel"(byval lpBUffer$, byval
nSize%)
Public Function Windows31Path () As String
Dim sBuf As String, iRet As Integer
    sBuf = Space$(256)
    iRet = GetWindowsDirectory(sBuf, Len(sBuf))
    If iRet > 0 Then
            Windows31Path = Left$(sBuf, iRet - 1)
    End If
End Function
Mentre in Vb6 per la dire temp:
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal
nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Const MAX_PATH = 260
Public Function GetTmpPath()
Dim strFolder As String
Dim lngResult As Long
   strFolder = String(MAX_PATH, 0)
   lngResult = GetTempPath(MAX_PATH, strFolder)
   If lngResult <> 0 Then
       GetTmpPath = Left(strFolder, InStr(strFolder, _
       Chr(0)) - 1)
   Else
       GetTmpPath = ""
   End If
End Function
Call MsgBox("The temp path is " & GetTmpPath, vbInformation
Qui c'e' Qualcos'altro:
FUNZIONE GetTempPath
Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" _
 (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
PIATTAFORMA: Win 32s, Win 95/98, Win NT
La funzione GetTempPath Individua la directory dei file temporanei di
Windows
Non necessariamente, la directory dei file temporranei è C:\WINDOWS\TEMP\
Il path della directory, vine messo in una variabile stringa passata come
lpBuffer.
La funzione, ritorna la lunghezza della stringa se la funzione si è conclusa
con esito positivo, altrimenti ritorna 0
nBufferLength è la lunghezza in caratteri di lpBuffer
lpBuffer è una stringa che riceve il path della Temp Directory
Example:
' Generate a temporary file (path)\api????.TMP, where (path)
' is Windows's temporary file directory and ???? is a randomly assigned
unique value.
' Then display the name of the created file on the screen.
Dim temppath As String  ' receives name of temporary file path
Dim tempfile As String  ' receives name of temporary file
Dim slength As Long  ' receives length of string returned for the path
Dim lastfour As Long  ' receives hex value of the randomly assigned ????
' Get Windows's temporary file path
temppath = Space(255)  ' initialize the buffer to receive the path
slength = GetTempPath(255, temppath)  ' read the path name
temppath = Left(temppath, slength)  ' extract data from the variable
' Get a uniquely assigned random file
tempfile = Space(255)  ' initialize buffer to receive the filename
lastfour = GetTempFileName(temppath, "api", 0, tempfile)  ' get a unique
temporary file name
' (Note that the file is also created for you in this case.)
tempfile = Left(tempfile, InStr(tempfile, vbNullChar) - 1)  ' extract data
from the variable
Debug.Print "Temporary filename: "; tempfile
Funzioni collegate: GetTempFileName
Spero si esserti stato d'aiuto !!
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------