Search results for query: *

I'm creating a fixed width report for a client and on occasion there are quantities that break the width rule in their requirement. In this instance, I need the quantities split in half and inserted in twice. The report looks like this, all done with a cursor: -----header line----- ---dtl line...

Kind of stuck and I'm not getting much luck searching. I basically need to send a date/time stamp to a URL and can't seem to get any info on sending... I can read a stream and get the contents of a page, but that's really not what I need. So, I've created the dtstamp as a variable and now need...

Sorry - misunderstood your question. 3 of them right now 02/06/2008 02/05/2008 02/04/2008

Just a day or two old: Date() -1 or -2

No errors, the subfolders just won't delete. Files will still delete fine. If I comment out the IF statement like below, the subfolders will then delete... but I need to specify a day or two to keep them around. For each oDelFolder in oFolderCollection ' If...

For some reason the loop deleting the subfolders isn't working. If I comment out the IF statement, it runs fine. The file portion runs without a hitch. What am I missing? 'Setup Dim oFSO Dim sDirectoryPath Dim oFolder Dim oDelFolder Dim oFileCollection Dim oFile Dim iDaysOld 'Set...

Looks like that did it. So much thanks!!!! This is a huge life-saver. I'm a total n00b at scripting so thanks for your patience.

Good catch. Adjusted, and the entire script runs without error EXCEPT instead of copying to alternating folders (trying to get it to copy one file to the -1 folder and the next file to -2 and so on) it's copying everything to each folder... Here's the adjusted code: 'Function Main() Dim...

I should say also, the directories will create and no errors will be given.

Sorry, should have stated - it's not copying anything. I can comment out everything but 1 of the copy statements and then it will copy...

This is what I'm playing with: Dim fso, strMonth, strDay,strComputer, strFolder,intRC,strSQLString,errResults, counter Set fso = CreateObject("Scripting.FileSystemObject") if len(datepart("m",date-1) ) = 1 then strMonth = "0" & datepart("m",date-1) else strMonth = datepart("m",date-1) end...

thanks for the reply, longhair - I was thinking of that but my concern is it seems really resource intensive. My initial thought was to decide based on filesize since they range pretty evenly between 10-80k but I started 2nd guessing that option. I'm really curious if there's a way to have it...

I've got a job that copies select files to a particular folder on a daily basis. Our requirements have recently changed in such a way that I need these files split up into 2 folders instead of just 1. Usually there are some 80,000 files and I need a way to copy half of them into 1 folder and...