/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hvordan finder man windows bilblioteket
Fra : Dondata


Dato : 08-12-00 02:38

Hvordan finder man windows bilblioteket.

I windows 95/98/98SE hedder det jo "Windows"

Og i Windows NT 2000 hedder det "Winnt"




 
 
Niels Krogh (08-12-2000)
Kommentar
Fra : Niels Krogh


Dato : 08-12-00 08:32


vha API kald og en tilhørende funktion:

Se evt. de 3 nedstående eksempler på hhv. Windows, Windows System og Temp
bibliotekerne.


Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
"GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

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

Public Function GetWinDir() As String
Dim r As Long, nSize As Long
Dim Tmp As String
' pad the string for the return value and set nSize equal to the size of the
string
Tmp = Space$(256)
nSize = Len(Tmp)
' call the API
r = GetWindowsDirectory(Tmp, nSize)
' trim off the trailing chr$(0) added by the API
GetWinDir = TrimNull(Tmp)
End Function

Public Function GetSystemDir() As String
Dim r As Long, nSize As Long
Dim Tmp As String
Tmp = Space$(256)
nSize = Len(Tmp)
r = GetSystemDirectory(Tmp, nSize)
GetSystemDir = TrimNull(Tmp)
End Function

Public Function GetTempDir() As String
Dim r As Long, nSize As Long
Dim Tmp As String
Tmp = Space$(256)
nSize = Len(Tmp)
r = GetTempPath(nSize, Tmp)
GetTempDir = TrimNull(Tmp)
End Function

mvh
Niels



"Dondata" <tim_data@hotmail.com> skrev i en meddelelse
news:90pe9i$a1r$1@news.cybercity.dk...
> Hvordan finder man windows bilblioteket.
>
> I windows 95/98/98SE hedder det jo "Windows"
>
> Og i Windows NT 2000 hedder det "Winnt"
>
>
>



Dondata (08-12-2000)
Kommentar
Fra : Dondata


Dato : 08-12-00 14:07

Tak skal i have..
Det hjalp og nu fungerer det.....
Sagen var den at jeg havde en database liggende der :)
Tak igen



L. Hansen (12-12-2000)
Kommentar
Fra : L. Hansen


Dato : 12-12-00 16:59

Hej

Det var da et snavset sted at lægge den ...

"Dondata" <tim_data@hotmail.com> skrev i en meddelelse
news:90qml3$2qft$1@news.cybercity.dk...
> Tak skal i have..
> Det hjalp og nu fungerer det.....
> Sagen var den at jeg havde en database liggende der :)
> Tak igen
>
>



Rasmussen Peter (14-12-2000)
Kommentar
Fra : Rasmussen Peter


Dato : 14-12-00 15:47

%windir%

"Dondata" <tim_data@hotmail.com> wrote in message
news:90pe9i$a1r$1@news.cybercity.dk...
> Hvordan finder man windows bilblioteket.
>
> I windows 95/98/98SE hedder det jo "Windows"
>
> Og i Windows NT 2000 hedder det "Winnt"
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste