Search results for query: *

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

Cool. Thanks for the info. I guess Panasonic basically never updates their software then. Appreciate the quick response cwc3. :)

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.

...rs ' Set File Number to UnPurge DBCaseFile = "100000" Set oConn = CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\wlf-dc1\Transfer\testbed\Case_Files.mdb" sSQL = "IF EXISTS(SELECT 'True' FROM Case_Tiff_Files WHERE Case_TIFF_Files.CaseNumber = '" &...

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

...Set rs = oConn.Execute(SQuery) Set oConn = CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\wlf-dc1\Transfer\testbed\Case_Files.mdb" If rs(0) Then WScript.Echo "This record already exists" Else WScript.Echo "Continue with Append" End If '...

...Database. This may take several minutes to complete." Set oConn = CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=W:\Case_Files.mdb" BlueMsg "Now connected to the Casefiles Database" ' execute query. Must have space after Procedure Name...

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

...GoodMsg & (Chr(13)) & BadMsg, 15, "File Count Report", 0 + 64 Function ExcludeFiles(strInput) ' On Error Resume Next Dim RegEx: Set RegEx = New RegExp RegEx.Pattern = ".*\.(tiff|tif)$" RegEx.IgnoreCase = True ExcludeFiles = RegEx.Test(strInput) End Function

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

...minutes to complete." WScript.Sleep 5000 Dim oConn Set oConn = CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\wlf-dc1\CaseDatabase\Case_Files.mdb" ' execute query. Must have space after Procedure Name oConn.Execute "exec RetPurgProc " &...

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.