| |
Установить папку, открываемую "по умолчанию" |
|
| |
Копаясь как-то в библиотеке kernel32.dll,
наткнулся на API-функцию SetCurrentDirectory.
Некоторое время я думал, как можно использовать
эту функцию, и вот вам небольшой пример.
Наверняка, эту функцию можно использовать и еще
как-то, вот тут-то и открывается простор для вашей
деятельности.
Как всегда в моих примерах, не забудьте
расположить на форме элемент CommandButton.
Private Declare Function SetCurrentDirectory Lib
"kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String)
As Long
Private Sub Command1_Click()
SetCurrentDirectory ("d:\1")
Dim FN As Integer
FN = FreeFile
Dim FName As String
'Использование функции SetCurrentDirectory позволяет не
вводить полный путь файла.
'Без использования функции SetCurrentDirectory следующая
строчка выглядела бы как:
'Open "D:\1\1.txt" For Input As #FN
Open "1.txt" For Input As #FN
ddd = Input(LOF(FN), #FN)
Close #FN
MsgBox ddd
'Module1.ShowOpen
End Sub
|
|
| |
|
|
|
|