---

Hejsa, jeg står og skal lave et lille program der skal opdatere HOSTS filen i Windows, men da denne fil er placeret forskelligt i forskellige versioner af Windows skal jeg bruge et program til i første omgang at lokalisere denne fil.
Er der en direkte måde at finde frem til denne fil? Jeg har nogle idéer til nogle betoder der kan bruges:
1. Jeg ved at man i batch programmer kan skrive %windir% og derefter finder den selv windows mappen på systemet... Hvis der er en lignende kommando i VB kan man vel bruge denne?
2. Måske kunne man tjekke brugerens version af Windows og opdatere filen ud fra dette?

Anden del af programmet går ud på at opdatere HOSTS med en IP adresse der findes via en DNS adresse.

Håber der forstås hvad jeg har brug for hjælp til, ellers bare spørg.

Mvh.
Casper

---

Øv ! det er lang tid siden at jeg sidst havde fat i VB5. og at huske det i hovedet ....nope går ikke.

måske at du kan finde lidt hjælp i VBS. På min win-me er en mappe (sampels) med eksembler. filtypen er *.vbs

Det er nok ikke meget hjælp, men nu er jeg da med i tåden, og hvis at jeg får støvet af mellem ørene, tja...

Mvh. Jørgen

---

Hvis du vil finde Windows directory kan du gøre det på følgende måde:

I et modul erklæres API:

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

Herefter kan der oprettes funktionen:

Function GetWindowsDir() As String
'-----------------------------------------------------------
' Calls the windows API to get the windows directory
'-----------------------------------------------------------
'
Dim strBuf As String
Dim intZeroPos As Integer

strBuf = Space$(255)

'
'Get the windows directory and then trim the buffer to the exact length
'returned and add a dir sep (backslash) if the API didn't return one
'
If GetWindowsDirectory(strBuf, 255) > 0 Then

intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
strBuf = Left$(strBuf, intZeroPos - 1)
End If
If Right(strBuf, 1) <> "\" Then
strBuf = strBuf & "\"
End If
GetWindowsDir = strBuf
Else
GetWindowsDir = ""
End If
End Function

---

Der gik lidt ged i de sidste linier:

intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
strBuf = Left$(strBuf, intZeroPos - 1)
End If

If Right(strBuf, 1) <> "\" Then

strBuf = strBuf & "\"

End If

GetWindowsDir = strBuf

Else

GetWindowsDir = ""

End If

End Function

---

Prøver endnu en gang:
If GetWindowsDirectory(strBuf, 255) > 0 Then

intZeroPos = InStr(strBuf, Chr$(0))

If intZeroPos > 0 Then

strBuf = Left$(strBuf, intZeroPos - 1)

End If

If Right(strBuf, 1) <> "\" Then

strBuf = strBuf & "\"

End If

GetWindowsDir = strBuf

Else

GetWindowsDir = ""

End If

End Function

---

Fedt, så har jeg windows mappen.. Din kode virkede efter hensigten ;)

Så mangler jeg bare en måde at tjekke windows versionen på.. Noget du kender til? =)

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.