> "Jing Software" <jingproje
...@gmail.com> wrote in message
> news:31de4b06-1a71-4756-b9eb-52794feb3da6@r5g2000yqb.googlegroups.com...
> > Hello,
> > I am trying to run a vbs file on my server that appends a few mp3
> > files to another and creates a new file.
> > I can do this from the command line without out any problems:
> > copy /b D:\Sites\www\applications\recorder\file1.mp3 + D:\Sites\www
> > \applications\recorder\file2.mp3 D:\Sites\www\applications\recorder
> > \new.mp3
> > When I try this in a vbs file or asp file it just hangs in asp and in
> > the vbs I get the message "cannot find the file specified"
> > Dim oShell, sCommand
> > sCommand = "copy /b D:\Sites\www\applications\recorder\file1.mp3 + D:
> > \Sites\www\applications\recorder\file2.mp3 D:\Sites\www\applications
> > \recorder\new.mp3"
> > Set oShell = CreateObject("WScript.Shell")
> > oShell.Run sCommand, , True
> > Set oShell = Nothing
> > Any ideas on what I could be doing wrong?
> > Thanks
> > James
> You're not really doing this in VB Script - you're shelling out to a console
> session and you then have the usual problems with placing the correct number
> double-quotes around your file names. A cleaner solution would be to do the
> whole lot with VB Script commands, e.g. like so:
> sName1 = "D:\Sites\www\applications\recorder\file1.mp3"
> sName2 = "D:\Sites\www\applications\recorder\file2.mp3"
> sName3 = "D:\Sites\www\applications\recorder\New.mp3"
> Set oFSO = CreateObject("Scripting.FileSystemObject")
> iSize1 = oFSO.GetFile(sName1).Size
> iSize2 = oFSO.GetFile(sName2).Size
> sFile1 = oFSO.OpenTextFile(sName1,1,False).Read(iSize1)
> sFile2 = oFSO.OpenTextFile(sName2,1,False).Read(iSize2)
> Set oFile3 = oFSO.CreateTextFile(sName3, True, False)
> oFile3.Write sFile1
> oFile3.Write sFile2
> oFile3.Close
> By the way - are you sure that you can append .mp3 files to each other like
> thim and get them to be processed correctly by your media player? What about
> the header information?- Hide quoted text -
> - Show quoted text -
|
