Thanks. That's exactly what mine is doing--- making bmp copies.

I hate to bother you at your workplace but I'm not sure what all of that means. (Scripting amateur here) Where do I insert the script? Which parts would I have to modify? Most of the pictures I'm using are jpegs, so does that mean I can't use the script?


I should probably also mention that the wallpaper changes according to what day of the week it is. So, I have the script check that 1st and then change the wallpaper.

This is a DX object that I've written myself. If this problem can't be rectified then I can live with it. But, I would like to release this widget sometime and I'm sure other users would find the problem annoying.




Here is the script that I'm talking about. (Without all the bells and whistles)
*I hope this posts correctly


Sub Object_OnScriptEnter
d= weekday(date)
Select Case d
Case 1
System.SetWallpaper (object.PersistStorage("picpath")), 3

End Select
End Sub

Sub Object_OnDropFiles(files)
Dim path

path= Split(files, "|")
newpath= LBound(path)
newpath2= path(newpath)
object.PersistStorage("picpath") = newpath2
object.ToolTipText= (object.PersistStorage("picpath"))




d= weekday(date)
Select Case d
Case 1
System.SetWallpaper (object.PersistStorage("picpath")), 3
End Select
End Sub

I finally got around to trying the code you posted.

I kept getting a 'file not found' error until I changed this line:
Set sourcefile = fso.GetFile("picpath")


to this:
Set sourcefile = fso.GetFile (Object.PersistStorage("picpath"))


That stopped the errors. Now, when I tested it by dragging and dropping a picture onto the object the wallpaper did not change.
I'm not sure what to do now.( I wish I knew more about scripting  )

IT WORKED!!     Thank you very much, Garibaldi99! You've been very patient and extremely helpful.


To deal with the problem of having to use only jpegs I added a function to check the file extension. If it is a jpeg then I go through the code you gave me. If it isn't a jpeg (i.e. if it's a bitmap) then I set the wallpaper normally.

Here's the code:

Sub Object_OnScriptEnter
Call checkday
End Sub


Function checkday
d= weekday(date)
Select Case d
Case 3
Call checkext
End Select
End Function


Function checkext
Select Case (object.PersistStorage("ext"))
Case "jpg"
Call LSetWallpaper(Object.PersistStorage("picpath"))
Case Else
system.SetWallpaper (object.PersistStorage("picpath")), 3
End Select
End Function


Sub Object_OnDropFiles(files)
Dim path

path= Split(files, "|")
newpath= LBound(path)
newpath2= path(newpath)
object.PersistStorage("picpath") = newpath2
object.ToolTipText= (object.PersistStorage("picpath"))

dropfile= Split(path(newpath), ".")
ext= UBound(dropfile)
object.persiststorage("ext") = dropfile(ext)

Call checkday

End Sub



Sub LSetWallpaper(jpgFName)
Set fso = CreateObject ("Scripting.FileSystemObject")
Set windowspath = fso.GetSpecialFolder(0)
winbmp = windowspath & "\wallpaperfile.bmp"
winjpg = windowspath & "\wallpaperfile.jpg"
If fso.FileExists(winbmp) Then
fso.DeleteFile winbmp
End If
If fso.FileExists(winjpg) Then
fso.DeleteFile winjpg
End If
fso.CopyFile jpgFName,winjpg,True
System.SetWallpaper winjpg,3
End Sub



Now, everything works! I can't thank you enough, Garibaldi, for everything. Hopefully, I'll upload my widget soon.  

Hey, Garibaldi! I've uploaded my widget here...[it's awaiting Moderation]-Admin


It hasn't been approved yet so, what do you think of the look?