Skocz do zawartości

pobieranie pliku z aplikacji


Oporowiec

Rekomendowane odpowiedzi

Opublikowano

cześć
mógłby mi ktoś podać przykładowy kod na coś takiego, że po kliknięciu przycisku "Pobierz" zostanie pobrany jakiś plik bez zmiany formatu i bez włączenia przeglądarki ?

Zarejestruj się za darmo i zacznij zarabiać online!

  • Darmowe poradniki pokazujące krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat e-commerceSEO, social media, afiliacji, kryptowalut, sztucznej inteligencji, freelancingu i wiele więcej!
  • Bezpośredni dostęp do Get Paid 2.0 w ramach jednego konta na make-cash.pl!
Gość mariusz79132
Opublikowano (edytowane)


dim url as string="http://google.com/text.txt"
My.Computer.Network.DownloadFile(url, "C:\"+url.Substring(url.LastIndexOf("/") + 1))

Edytowane przez mariusz79132
Opublikowano
dim url as string="http://google.com/text.txt"My.Computer.Network.DownloadFile(url, "C:\"+url.Substring(url.LastIndexOf("/") + 1))

niestety ale gdy wkleiłem ten kod w kod przycisku (Button1) to aplikacja się zacięła :/

Gość mariusz79132
Opublikowano

Zawiesza bo ściąga w tym momencie.

 

Ten kod możesz użyć nie zawieszając programu:
 

   Dim url As String = "http://google.com/text.txt"        Dim tempUrl As New Uri(url)      Dim wb As New WebClient        AddHandler wb.DownloadFileCompleted, AddressOf Completed        wb.DownloadFileAsync(tempUrl, "C:\" + url.Substring(url.LastIndexOf("/") + 1))

I poza subem dalszy kod:

  Private Sub Completed(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)        'skonczono sciaganie    End Sub
Opublikowano

Zawiesza bo ściąga w tym momencie.

 

Ten kod możesz użyć nie zawieszając programu:

   Dim url As String = "http://google.com/text.txt"        Dim tempUrl As New Uri(url)      Dim wb As New WebClient        AddHandler wb.DownloadFileCompleted, AddressOf Completed        wb.DownloadFileAsync(tempUrl, "C:\" + url.Substring(url.LastIndexOf("/") + 1))

I poza subem dalszy kod:

  Private Sub Completed(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)        'skonczono sciaganie    End Sub

 

taki błąd :/

0m277r.jpg

Gość mariusz79132
Opublikowano
Imports System.ComponentModelImports System.Net

Na początku. 

Albo najedź na błędy i kliknij import...

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Tylko zalogowani użytkownicy mogą dodawać komentarze.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się

spacer.png

Mentoring Get Paid 2.0

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .