Vista a složka Temp

Operační systémy Windows z dílny Microsoft a vše kolem nich

Moderátoři: Pic, Mods_senior

Odpovědět
flashparkprd

Vista a složka Temp

Příspěvek od flashparkprd »

Zdravím,
Tvořím jeden program (na XPéčkách) a potřebuju aby byl funkční i na Vistě. Potřebuji vědět jestli má Windows vista taky složku Temp v kořenu disku C (C:\Temp) Nemám po ruce žádnou Vistu a tahle informace by mi pomohla.
Předem děkuji :D
Uživatelský avatar
Koja
Level 4.5
Level 4.5
Příspěvky: 1909
Registrován: 30 lis 2005 11:21
Bydliště: Brno
Kontaktovat uživatele:

Re: Vista a složka Temp

Příspěvek od Koja »

Tuším, že má..

Ale stejně bych to pořešil tak, že bych kontroloval, jestli tam ten adresář je. Pokud není, tak si ho tam program vytvoří.. I na XPčkách se ti může stát, že si ho někdo smaže a nebude tam..
Everybody lies so don't trust anyone. :)
Uživatelský avatar
Pic
Guru Level 13
Guru Level 13
Příspěvky: 23292
Registrován: 05 zář 2006 13:13
Bydliště: Východní Čechy

Re: Vista a složka Temp

Příspěvek od Pic »

Složku Temp nemusíš mít ani v XP. Mám XP s SP3 a uvedenou složku Temp v C:\ nemám a ani jsem ji nemazal.
Přečti si pravidla tohoto fóra! Přečetl jsi si nejprve manuál? Piš tak, abychom Ti rozuměli! Na SZ neodpovídám na požadavky řešení Vašich problémů s PC!
Nic není dokonalé, ani člověk!
Uživatelský avatar
X
Elite Level 12.5
Elite Level 12.5
Příspěvky: 19360
Registrován: 22 kvě 2007 11:34
Kontaktovat uživatele:

Re: Vista a složka Temp

Příspěvek od X »

Na XP není určitě v C:\ ale tady (pokud jí někdo nemá přenastavenou jinam):

C:\Documents and Settings\***\Local Settings\Temp (*** = uživatel)

Cesta ke složce TEMP se pomocí API z VB (Visual Basic) či VBA (Visual Basic Applications) zjistí takto (nutno překopírovat, jinak hrozí při jakékoli malé chybě hrozba "kousnutí"), pohrej si a uprav pro své potřeby:



Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Dim sAdresar As String
sAdresar = String(255, Chr(0))
ret = GetTempPath(255, sAdresar)
Debug.Print Left(sAdresar, InStr(1, sAdresar, Chr(0))-1)
Odpovědět

Zpět na „Windows 11, 10, 8...“