update URLs for sound files

This commit is contained in:
Ken Rice
2015-05-15 10:32:21 -05:00
parent 1073b32bcf
commit 861c4e9c47
21 changed files with 82 additions and 82 deletions

View File

@@ -55,7 +55,7 @@ End If
' *******************
Sub WgetSounds(PrimaryName, Freq, DestFolder, VersionFile)
BaseURL = "http://files.freeswitch.org/freeswitch-sounds"
BaseURL = "http://files.freeswitch.org/releases/sounds/freeswitch-sounds"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(VersionFile,1)
Do Until objTextFile.AtEndOfStream