VB.NET EPILOGUE #1 - Архивация файла FIle to ZIP

[@WellmadeShows]

Спасибо за уроки

[@AngryPROGER]

Спасибо и Вам)

[@mrkotyuk]

Давай создание простого интерпритатора на VB.net

[@alexghost4042]

Angry PROGER Приветствую. А где трансляция?

[@AngryPROGER]

Смысла от трансляции нет, наверное не будет трансляций вообще.

[@NERVOUSHACKER]

о ты живой

[@AngryPROGER]

Жив)

[@vac416]

Как на счёт 2D платформера?

[@AngryPROGER]

Это придется "пилить" цикл роликов (уроков), но нет ничего невозможного ;)

[@vac416]

@@AngryPROGER то самое чувство когда разговариваешь с музыкальным инструментом))))

[@professorvb6818]

Как сделать, что бы в архив добавлялся только нужный файл, а не полный его путь? Кстати, Код для извлечения из архива. Public Sub MyExtract(ByVal ZipToUnpack As String, ByVal UnpackDirectory As String) Using zip As ZipFile = ZipFile.Read(ZipToUnpack) Dim e As ZipEntry For Each e In zip e.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently) Next End Using End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim zip2 = TextBox2.Text Dim unzip2 = TextBox1.Text MyExtract(zip2, unzip2) End Sub