VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Заменить все переменные среды на их значения

Visual Basic 6
Заменить все переменные среды на их значения
Данная функция заменяет путь типа "%windir%\System32\" на "C:\Windows\System32\".

Public Function EnvironReplace(ByVal Path$) As String
Dim s$, s1$, s2$
s = Path
For i = 1 To 255
If Environ(i) <> "" Then
s1 = Environ(i)
s2 = s1
s1 = Left(s1, InStr(1, s1, "=") - 1)
s2 = Mid(s2, InStr(1, s2, "=") + 1)
s = Replace(s, "%" & s1 & "%", s2)
End If
Next
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Заменить все переменные среды на их значения  
Powered by Exponenta -