Originally posted by Xian
View Post
Code:
Sub Main (ByVal Parm As Object) Const OverwriteExisting = TRUE Dim SourcePath As String = "C:\Program Files (x86)\Homeseer HS3\RadioStationImages\Smooth Jazz.jpg" Dim DestPath As String = "C:\Program Files (x86)\HomeSeer HS3\html\images\Chromecast\EFB42AB1-6B4C-482C-9D3A-DEA8E5708236\" Dim FileName As String = "thumbnail.jpg" My.Computer.FileSystem.CopyFile(SourcePath, DestPath & FileName, OverwriteExisting) end sub
Ps. I use a 1 second delay in the event before the script command. Otherwise spud's image might overwrite.
Leave a comment: