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!

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

Search results for query: *

  1. Hasfurt

    array

    Is their a fuction to clear an array? or is the only way to use a loop: dim myarray(), i for i = 1 to ubound myarray(i) = "" next
  2. Hasfurt

    how to pass an array

    Thank you!
  3. Hasfurt

    how to pass an array

    I unserstand that my questions might be small but if anything Im not a student to VB I am to Vb script which seems to run differently. I have the microsoft documentation that is not helping me. I have done numerous google searches. In my post in the begging I said if their is another post about...
  4. Hasfurt

    Detect if script already running

    When a script runs it does not run as the name of the script. Every script runs as wscript.exe in taskmanager.
  5. Hasfurt

    how to pass an array

    When I rem the Redim statement just before the last loop I get subscript out of range error again. I can However redim the array a value of 500 but that is not how I would like it. I would like the array to adjust to the size I need it.
  6. Hasfurt

    how to pass an array

    I am now trying to redim the array inside the loop with minimal sucess? It is only passing the last index of the array? option explicit dim myArray () dim i call var (myarray) for i = 0 to 12 wscript.echo myarray(i) next sub var (arrayVAR) dim x, j, ad x = 0 for j = 0 to 12 x = x +...
  7. Hasfurt

    how to pass an array

    Thanks for your help guys
  8. Hasfurt

    how to pass an array

    Was wondering if I could get some help on this simple code. I am trying to learn how to pass an array? Im getting error "subscript out of range" option explicit dim myArray (13) dim i call var (myarray()) for i = 0 to 12 wscript.echo myarray(i) next sub var (arrayVAR()) dim x, j x = 0 for j...
  9. Hasfurt

    search and delete files

    Your a genious PHV!! Thanks a lot for all the help
  10. Hasfurt

    search and delete files

    I tried out your code and their was still a little bit of a bug. It will delete the files at the start level but it wont delete the files at the sub-folder level. Yet the counter counts thos files but just wont delete them.
  11. Hasfurt

    Simple?

    strAmount = DisplayWithComma(MyRecordSetObject("Amount")) response.write FormatNumber(strAmount)
  12. Hasfurt

    search and delete files

    This is what I have come up with the problem with the code is that it wont go into the sub folders to delete the files with the extensions Dim fso, counter, sroot, objFSO, x Dim fld, fls, oFile, dt, oFolder, strWildcardsToDelete set fso = CreateObject("Scripting.FileSystemObject") counter = 0...

Part and Inventory Search

Back
Top