Widget's was removed for some reason so I whipped this together.
Click the text box for the folder-browser dialog to appear (so you can choose where to download the files)
Doesn't require subversion.
Source:
Code:
Imports System.Net
Imports System.IO
Public Class Form1
Dim Revision As String = Nothing
Dim directories As ArrayList = New ArrayList()
Dim newarray As ArrayList = New ArrayList()
Dim newarray2 As ArrayList = New ArrayList()
Dim PublicSVN = "http://www.villavu.com/repositories/srl-pub/"
Dim OpenDev = "http://www.villavu.com/repositories/srl-opendev/"
Private Sub TextBox1_Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextSavePath.Click
FolderBrowserDialog1.ShowDialog()
TextSavePath.Text = FolderBrowserDialog1.SelectedPath
End Sub
Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
If TextSavePath.Text = Nothing And (Not RadioOpenDev.Checked Or Not RadioPublicSVN.Checked) Then
MsgBox("Pick a Directory/Download option")
Exit Sub
End If
If RadioOpenDev.Checked Then
DownloadSVN("", OpenDev)
DownloadSVN("SRL/", OpenDev)
DownloadSVN("SRL/core/", OpenDev)
DownloadSVN("SRL/misc/", OpenDev)
DownloadSVN("SRL/skill/", OpenDev)
DownloadSVN("AutoColor Files/", OpenDev)
DownloadSVN("Scripting Tools/", OpenDev)
DownloadSVN("SRL/core/AntiRandoms/", OpenDev)
DownloadSVN("place inside plugins folder/", OpenDev)
MsgBox("SRL Open-Dev Revision " & Revision & " Downloaded.")
ElseIf RadioPublicSVN.Checked Then
DownloadSVN("", PublicSVN)
DownloadSVN("SRL/", PublicSVN)
DownloadSVN("SRL/core/", PublicSVN)
DownloadSVN("SRL/misc/", PublicSVN)
DownloadSVN("SRL/skill/", PublicSVN)
DownloadSVN("SRL/core/AntiRandoms/", PublicSVN)
DownloadSVN("Scripting Tools/", PublicSVN)
DownloadSVN("place inside plugins folder/", PublicSVN)
MsgBox("SRL Public Revision " & Revision & " Downloaded.")
End If
End Sub
Private Sub DownloadSVN(ByVal Directory As String, ByVal URL As String)
Try
directories.Clear()
newarray.Clear()
newarray2.Clear()
Dim OpenDevURL = PublicSVN & Directory
Dim SavePath = TextSavePath.Text & "\" & Directory
Dim client As New WebClient
Dim result As String = client.DownloadString(URL)
Dim Rev() = System.Text.RegularExpressions.Regex.Split(result, "<index rev=""")
Revision = Rev(1).Split("""")(0)
Dim splitarray2() As String = System.Text.RegularExpressions.Regex.Split(result, "<dir name=""") 'Handle directories
For i = 1 To splitarray2.Length - 1
newarray2.Add(splitarray2(i).Split("""")(0))
Next
For i = 0 To splitarray2.Length - 2
directories.Add(newarray2(i))
IO.Directory.CreateDirectory(SavePath & directories(i))
Next
Dim splitarray() As String = System.Text.RegularExpressions.Regex.Split(result, "<file name=""") 'Handle files in the current directory
For i = 1 To splitarray.Length - 1
newarray.Add(splitarray(i).Split("""")(0))
Next
For i = 0 To splitarray.Length - 2
client.DownloadFile(URL & newarray(i), SavePath & newarray(i))
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class