Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by dburrows1278

  1. dburrows1278

    Need to Repeat an Insert Once if Condition is Met Inside a Cursor

    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...
  2. dburrows1278

    Sending a Variable to a URL with Powershell

    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...
  3. dburrows1278

    Problem deleting subfolders with loop

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

    Problem deleting subfolders with loop

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

    Problem deleting subfolders with loop

    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...
  6. dburrows1278

    Problem deleting subfolders with loop

    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...
  7. dburrows1278

    Need advice for file copy script

    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.
  8. dburrows1278

    Need advice for file copy script

    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...
  9. dburrows1278

    Need advice for file copy script

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

    Need advice for file copy script

    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...
  11. dburrows1278

    Need advice for file copy script

    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...
  12. dburrows1278

    Need advice for file copy script

    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...
  13. dburrows1278

    Need advice for file copy script

    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...
See more

Part and Inventory Search

Back
Top