CurDir только для чтения? Как сохранить текщий директорий?

[Dimon111]

CommonDialog.ShowOpen изменяет CurDir. Как его восстановить?
Пишу:

Код: Выделить всё

Dim SzipDIR As String, StrCurDir                        '
    If Dir("C:\Program Files\7-Zip\7zG.exe") = "" Then  '
        StrCurDir = CurDir                              '
        CommonDialog.ShowOpen                           'открытие диалога для задания имени исходного файла
        SzipDIR = CommonDialog.FileName                 'присвоение имени файла
        CurDir = StrCurDir
    Else: SzipDIR = "C:\Program Files\7-Zip\7zG.exe"    '
    End If                                              '
Okno1.Text = SzipDIR & CurDir                           '


На строчке CurDir = StrCurDir останавливается и тпшет, что требуется объект. Как восстановить текущий путь?

Спасибо.

[alibek]

ChDir

[iGrok]

ChDrive / ChDir

[Dimon111]

Чудеса какие - то

В ответ на это:

Код: Выделить всё

ChDir = StrCurDir


Получил: "Argument not optional"

Вообще ChDir - это какая - то жуткая тайна.
Ее описания нет ни здесь:
http://www.vbnet.ru/vbguide/showfunction.asp?id=67

Ни здесь
http://www.vbnet.ru/vbguide/showfunction.asp?id=67

Может есть еще каке то мысли?

[Dimon111]

Так, догадался. Там равно не должно быть.

Но теперь другая проблема. CommonDialog.ShowOpen меняет текущий диск на С:.

Для переменной StrCurDir путь составляет D:\VB2\7zip. После присвоения ChDir StrCurDir ничего не меняется! текущий диск остается С:!

[Viper]

ответили же уже: ChDrive и ChDir

[iGrok]

Зато ее описание есть в F2 =)