Vb+%systemroot%

[evagelos_21]

θα ήθελα να ρωτήσω πως μπορώ να κάνω έλεγχο αν υπάρχει ένα αρχείο στον φάκελο των windows.

Ξέρω πως υπάρχει το %systemroot% αλλά πως μπορώ να την καλέσω μέσα απο VB6;

ευχαριστώ .

[UserXP]

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

 

Dim wDir As String * 100, V As Long, WinDir As String

wDir = Space(Len(wdir))

V = GetWindowsDirectory(wdir, Len(wdir))

WinDir = Left(wDir, V)

 

If Dir(WinDir & "\<αρχείο που ψάχνω>") <> "" Then

' Το αρχείο υπάρχει

End If