From: gbashore@bcpl.net   
      
   Jack   
   Start a new project   
   Go to View, select Code   
   Paste code into code window from "Option Explicit" through to "End sub".   
   Make sure Option Explicit isn't showing twice.   
   Change the PathAndFileName to your file for each day.   
   Click F5 and todays tune should play.   
      
   George   
      
   "Jack Sadie"  wrote in message   
   news:q82dnQavYL2QfSzenZ2dnUVZ8qKdnZ2d@pipex.net...   
   > George   
   > You are a dream come true !!!   
   > Thank you very much for the trouble you have taken.   
   > It looks great to me but I still need to understand where to lodge it.   
   > Presumably I copy from "Option Explicit" through to "End sub" to   
   > the clipboard and then paste it into somewhere.   
   > But very sorry - I don't know where !!!   
   > Am I a bit thicker than even you thought?   
   > Big ideas but only a little   
   > knowledge and that's a dangeropus thing.   
   > I shall create a restore point first.   
   > --   
   > Regards, Jack Sadie   
   > jaxalad-buying@yahooREMOVE.co.uk   
   >   
   >   
   > "George Bashore"  wrote in message   
   > news:TsidnW1d_KzcEC3eRVn-ig@comcast.com...   
   >> Jack try this.   
   >> Replace PathAndFileName with the path and file name to your wav file for   
   >> each day of the week.   
   >> example Call sndPlaySound("C:\sounds\startup.wav", 1)   
   >> HTH   
   >> George   
   >>   
   >>   
   >>   
   >> Option Explicit   
   >> Private Declare Function sndPlaySound Lib "winmm.dll" Alias _   
   >> "sndPlaySoundA" (ByVal FileName As String, _   
   >> ByVal Flags As Long) As Long   
   >> Dim myDate As String   
   >>   
   >> Private Sub Form_Load()   
   >>   
   >>    myDate = Format(Now, "dddd")   
   >>    Debug.Print myDate   
   >>    Select Case myDate   
   >>    Case "Monday"   
   >>       Call sndPlaySound("PathAndFileName", 1)   
   >>    Case "Tuesday"   
   >>       Call sndPlaySound("PathAndFileName", 1)   
   >>    Case "Wednesday"   
   >>        Call sndPlaySound("PathAndFileName", 1)   
   >>    Case "Thursday"   
   >>        Call sndPlaySound("PathAndFileName", 1)   
   >>    Case "Friday"   
   >>        Call sndPlaySound("PathAndFileName", 1)   
   >>    Case "Saturday"   
   >>        Call sndPlaySound("PathAndFileName", 1)   
   >>    Case "Sunday"   
   >>        Call sndPlaySound("PathAndFileName", 1)   
   >>    End Select   
   >> End Sub   
   >>   
   >>   
   >>   
   >> "Jack Sadie"  wrote in message   
   >> news:bt6dnWQNkYlavi3enZ2dnUVZ8qmdnZ2d@pipex.net...   
   >>>I have found out how to substitute my own wav sound for the Microsoft   
   >>>default sound, but now I want to go a step further.   
   >>>   
   >>> I want to create 7 different wave files and have a different one open   
   >>> according to the day of the week - the "monday.wav" opening on Mondays   
   >>> and the "tuesday.wav" on Tuesdays and so on.   
   >>>   
   >>> It looks to me as if I need to have a routine created which I don't have   
   >>> the expertise to do. And if I had a vb routine I wouldn't know how to   
   >>> employ it on my computer.   
   >>>   
   >>> Can any kind person assist or point me in the right direction if this is   
   >>> the wrong ng.   
   >>> Thanks so much   
   >>> --   
   >>> Regards, Jack Sadie   
   >>> jaxalad-buying@yahooREMOVE.co.uk   
   >>>   
   >>   
   >>   
   >   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)