Automamatischer Download von Dropbox und co.

  • VB.NET
  • .NET (FX) 4.0

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Automamatischer Download von Dropbox und co.

    Hallo
    Ich habe ein Programm das bestimmte Dateien benötigt.
    Diese Dateien soll das Programm bei Ersten Ausführen Herunterladen.

    Hier Mein Code Ansatz

    Quellcode

    1. ​
    2. If My.Settings.FirstRun=True Then
    4. `Hier Sollte Der Download Code sein.
    5. My.Settings.FirstRun = False
    6. My.Settings.Save
    9. End If


    Danke für Eure Hilfe

    Gruss PPR

    PPR-Dev schrieb:

    Und wie geht das???
    Danke
    PPR


    So quer ausm kopf raus...ggf ändern wenn OptionStrict On

    VB.NET-Quellcode

    1. Dim p As Path = System.Environment.SpecialFolder.ApplicationData + "\MeinProgramm\"
    2. If Directory.Exists(p) Then
    3. MessageBox.Show("Pfad gefunden")
    4. Else
    5. Directory.CreateDirectory(p)
    6. End If

    Funktioniert das auch??

    Hallo
    Funktioniert dieser Code so auch?? (RICHTIG Funktionieren!!)

    Quellcode

    1. Dim p As Path = System.Environment.SpecialFolder.ApplicationData + "\MeinProgramm"
    2. If Not Directory.Exists(p) Then
    3. Directory.CreateDirectory(p)
    4. Else
    5. Label1.Text= "Fehler Beim Ordner Erstellen!"
    6. End If

    Und Ist SpecialFolder.ApplicationData = C:\Programme\Mein Programm ?????
    Danke

    PPR

    Ein Paar ??

    @GooMan müste denn der Code so aussehen, wenn ich ein Ordner in C anlege :

    Quellcode

    1. ​Dim p As Path = System.Environment.SpecialFolder.Application.StartupPath + "\MeinProgramm"
    2. If Not Directory.Exists(p) Then
    3. Directory.CreateDirectory(p)
    4. Else
    5. Label1.Text= "Fehler Beim Ordner Erstellen!"
    6. End If


    @Trade Nein, Ein Programm soll Erweiterungen oder Dokumente... Herunterladen und wenn Möglich in einem Ordner C:\+Mein Programm Speichern, das das Programm die Datenbanken, Erweiterungen Findet...

    Danke PPR

    C:\ wäre

    Visual Basic-Quellcode

    1. Dim p As Path = "C:\MeinProgramm"


    Visual Basic-Quellcode

    1. Dim p As Path = System.Environment.SpecialFolder.Application.StartupPath + "\MeinProgramm"


    Gibts nicht. Das was du meinst wäre NUR

    Application.StartupPath

    Das ist aber der STARTPFAD. Also da wo die EXE liegt.

    Bitte eigne Dir unbedingt mal die Grundlagen an. Path ist eine Klasse und kein Datentyp. Was Du suchst ist String.
    Außerdem brauchst Du Environment.GetFolderPath, denn ohne das liefert das nur den Eintrag einer Enumeration zurück, keinen String.
    und Path.Combine nutzen!
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Also es gibt davon ne alte Api.
    Aber für deinen Zweck reicht en normaler Download !

    EDIT:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net
    3. Public Class Form1
    5. Dim Nummer As Integer = 0
    6. Dim DownloadListe As New List(Of String)
    7. Dim WithEvents MyWebClient As New WebClient
    8. Dim Ordnerpfad As String = IO.Path.Combine(Application.StartupPath, "DEIN ORDNER") 'Hier Pfad anpassen
    9. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    11. If Not IO.Directory.Exists(Ordnerpfad) Then
    12. System.IO.Directory.CreateDirectory(Ordnerpfad)
    14. DownloadListe.Add("https://dl.dropboxusercontent.com/u/80987699/1.txt")
    15. DownloadListe.Add("https://dl.dropboxusercontent.com/u/80987699/2.txt")
    16. DownloadListe.Add("https://dl.dropboxusercontent.com/u/80987699/3.txt") 'Wens mehr simd hier (( DownloadListe.Add )) dabei
    18. Me.Text = "Update wird gestartet..."
    19. Dim Url = New Uri(DownloadListe(Nummer).ToString)
    20. Dim Dateiname As String() = Url.Segments
    21. MyWebClient.DownloadFileAsync(New Uri(DownloadListe(Nummer).ToString), IO.Path.Combine(Ordnerpfad, Dateiname(3)), False)
    23. End If
    24. End Sub
    26. Private Sub myWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles myWebClient.DownloadProgressChanged
    27. Me.Text = e.ProgressPercentage & " %"
    28. ProgressBar1.Value = e.ProgressPercentage
    29. End Sub
    31. Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles MyWebClient.DownloadFileCompleted
    32. Nummer += 1
    33. Select Case Nummer
    34. Case 1
    35. Dim Url = New Uri(DownloadListe(Nummer).ToString)
    36. Dim Dateiname As String() = Url.Segments
    37. MyWebClient.DownloadFileAsync(New Uri(DownloadListe(Nummer).ToString), IO.Path.Combine(Ordnerpfad, Dateiname(3)), True)
    38. Case 2
    39. Dim Url = New Uri(DownloadListe(Nummer).ToString)
    40. Dim Dateiname As String() = Url.Segments
    41. MyWebClient.DownloadFileAsync(New Uri(DownloadListe(Nummer).ToString), IO.Path.Combine(Ordnerpfad, Dateiname(3)), True)
    42. Case 3 ' Und entsprechend oben - wens mehr werden soll (( Case 4 usw... ))
    43. Nummer = 0
    44. MyWebClient.Dispose()
    45. DownloadListe.Clear()
    46. Me.Text = "Update ist beendet !"
    47. ProgressBar1.Value = 0
    48. End Select
    49. End Sub
    51. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    52. Process.Start(Ordnerpfad) 'Ordnerpfad öffnen - einach weils che is (-: und ma reinkucken
    53. End Sub
    54. End Class
    56. 'Url's bleiben als Test bis am 25.3.2014 um 18:00 activ (-:
    57. 'Zum erneuten testen muss ordner gelöscht werden !!!


    Wichtig :
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim Url = New Uri("https://dl.dropboxusercontent.com/u/80987699/1.txt")
    2. Dim Dateiname As String() = Url.Segments
    3. MsgBox(Dateiname(3)) '0 bis x im Code anpassen ,bis die Endung stimmt !
    5. 'Das Ergebnis sollte zb (( 1.txt )) sein - immer der Dateiname der in der Url ist !



    Test Mappe in vb 2013:
    www46.zippyshare.com/v/99643407/file.html


    PS : Der Pfad (( C:\MeinProgramm )) brauch Admin Rechte !

    Dieser Beitrag wurde bereits 17 mal editiert, zuletzt von „TVX“ ()

Facebook
Telefonspende