Using an Exabyte autoloader connected to a PCI-X Adaptec 29160 controller. I am upgrading to a brand new server with only PCIe, so will need a new one. Seems that the choices are very limited for PCIe SCSI. I've found two: LSI LSI20320IE and Adaptec 29320LPE, no 160 cards that I could find...
A few years back we got a KX-TD500. About a year after, the telecom guy we bought it from was closing shop and retiring. As a parting gift, he gave me a copy of the maintenance console software so that I could do simple stuff like swap extension numbers. It's labelled as V4M, Version 030912A...
Very cool. Looks to be working nicely. :) Now I just need to integrate this back into the HTA it's to live in and can (hopefully) close the books on this one.
At least I've now got the query to stop throwing errors, but now it tells me that the the record exists every time, even if it doesn't. Blah.
Current code:
On Error Resume Next
Dim oConn, DBCaseFile, DBError, rs
' Set File Number to UnPurge
DBCaseFile = "100000"
Set oConn =...
Still can't get the query formatted correctly. Here's what the original query looks like in access:
SELECT Case_TIFF_Files.CaseNumber
FROM Case_TIFF_Files
WHERE (((Case_TIFF_Files.CaseNumber)="351418"));
Something about the formatting and adding "IF EXISTS(SELECT 'True' to the beginning...
Thanks you, I think that got it.
Just for knowledge sake, I did start working on figuring out how to query if the entry already existed method and kept coming up with errors with the query. It's got to be a syntax problem, but I can't seem to get it right. What do I have or not have in here...
Running into an issue with a script I’ve been working on for some end-users, the relavant portion of which is pasted below.
In a nutshell, the script calls a stored procedure (append query) in an access database. This query is moving a row from one table to another(source to destination)...
This check is looking for if the file already exists at the destination point, a separate check from if the source file even exists. If it does, then the script should end and not even bother trying to do the copy operation.I wouldn't think it would be necessary to have the script do a...
Everything don't now except for one thing, need to add back in one check:
If fso.FileExists(destDir & file.name) Then
MsgBox destDir & file.name & " already exists.", 0
WScript.Quit
I think that I just need to do something like this:
If findfile( "s:\FileBack", strCaseFile, file) Then
If...
Good to know. As mentioned earlier, I'm converting a bunch of Kix scripts into VBS and then tying them all together in an HTA. Given that functions and subs can't be within subs, I'm just going to have to be careful and try to keep each script from having too many functions and subs otherwise...
OK, still have to add back in the user feedback stuff and the database stuff, but here is what is now working:
dtmStart = Now()
strCaseFile = InputBox("Enter the case number for the file to unpurge:" & Chr(13) & "(This may take several minutes. You will be prompted upon completion)","WLF...
Thanks, that did the trick. I didn't think about when the data was being generated. Quick question that I thought of for when this gets rolled into an HTA, can a function be within a sub?
Here's what worked:
Dim GoodFileCnt, BadFileCnt, GoodMsg, ErrorMsg
Set objShell =...
Update.
Unfortunately it didn't work, but I found another recursive search funtion, similar to yours, that I'm attempting to modify to suit my purpose. I'll post back when/if I get it running. :)
Thanks for the response mrmovie.
I tried putting explorer.quit into the main, but for whatever reason, it wasn't closing the IE display window. I'm using IE to give feedback to the end-user that the script is running, since the file search could take up to 10 minutes.
Probably would be...
Thanks. I changed some of the naming convensions, hopefully it's easier to follow mrmovie. This script is actually a conversion from a Kix script, I kept the same names as in the original. I plan on having this and several other related ones tied into an HTA, but that will come after they are...
Having a problem with a script I've been working on. I thought it was functionaly complete and rolled it out to the end user that needed it, but the user ran into a situation today that I'd like to get fixed. It just needs a bit of error checking, but I'm not sure where to roll it in. The...
Answered number three myself, by making the line:
If LCase(Right(objFile.Name, 4)) = ".tif" or LCase(Right(objFile.Name, 5)) = ".tiff" Then
There's probably some more elegant method, but this'll do.
Nice Mark. I probably can't use that since there are other image files in the srcdir that shouldn't be touched by this script.
Mrmovie's script sent me back to square one and I've actually come up with something semi-funtional, simple, and easy to read (pasted at the bottom of this message)...
Thanks mrmovie for the suggestion. I'm going to have to play with this and research dictionary arrays as I'm having trouble following some of the code and coming up with more questions than before.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.