2

В ресурсах проекта есть zip архив. Надо при нажатии на кнопку, чтобы этот файл скачался на рабочий стол. В каком направлении двигаться?

1 ответ 1

2

Если zip архив отмечен как embedded resource, то примерно так:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim desktopPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    Dim targetPath = IO.Path.Combine(desktopPath, "TextFile.zip")

    ' "WindowsApplication1.TextFile1.zip" нужно заменить на настоящее имя ресурса
    ' в формате "<default namespace>.<папка>.<файл>"
    Using resourceStream = Me.GetType().Assembly.GetManifestResourceStream("WindowsApplication1.TextFile1.zip")
        Using fileStream = IO.File.OpenWrite(targetPath)
            resourceStream.CopyTo(fileStream)
        End Using
    End Using
End Sub
4
  • WindowsApplication1.TextFile1.zip? o_O
    – VladD
    17 мая 2015 в 14:19
  • @VladD лень было из студии переключаться, переименовал что было :)
    – user177221
    17 мая 2015 в 14:20
  • Ага, но вы хотя бы намекните ТСу, что эту часть неплохо бы подправить после копипаста :)
    – VladD
    17 мая 2015 в 14:22
  • Спасибо за первые две строчки, остальное я не понял, поэтому ошибки вылетали. Но я вспомнил про WriteAllBytes И написал My.Computer.FileSystem.WriteAllBytes(targetPath, My.Resources.SSD8, False) 17 мая 2015 в 15:04

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.