Вот появилась задачка, примерно такая:
Нужна программка, которая бы считывала из файла 1.ini путь к каталогу, очищала его, и далее юзер в форме выбора файла выбирал бы архив, который затем распаковывался в каталог, путь к которому указан в 1.ini
Написал примерно следующий код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Try
FileOpen( 1 , InputFile, OpenMode.Input)
Do Until EOF( 1 )
LineOfText = LineInput( 1 )
AllText = LineOfText
'MsgBox(AllText)
Loop
Catch
MsgBox("Ошибка открытия файла *.ini.")
Finally
FileClose( 1 )
End Try
rc = AllText + "\*.*"
'MsgBox(rc)
Kill(rc)
'i i i i i i i i i i i i i i i i i i i
OpenFileDialog1.Filter = "Открыть архив (*.rar)|*.rar"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
RarFile = OpenFileDialog1.FileName
'MsgBox(RarFile)
End If
Shell("""C:\Program Files\WinRAR\rar.exe"" e RarFile AllText")
однако вышел косяк в том, что если каталог пустой, то прога пишет про ошибку тут:
Kill(rc)
также не получается расспаковать архив, поиком искал, но дельного совета не нашел.
Собственно, рассчитываю на подсказки и как правильно все же написать код очистки каталога и распаковки архива :)
