Получения каталога Windows
| Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal p As String, ByVal p1 As Long) As Long Dim windir As String Private Sub Command1_Click() windir = Space(20) J = Left(windir, GetWindowsDirectory(windir, 20)) Print J End Sub P.S. Есть встроенная функция перейти | |
| Просмотров: 994 | Комментарии: 1 | |
| Всего комментариев: 0 | |