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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
VXA autoloader on new server - hardware Q
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... -
KX-TD500 Maintenance Console
Cool. Thanks for the info. I guess Panasonic basically never updates their software then. Appreciate the quick response cwc3. :)- Babscoole
- Post #4
- Forum: Panasonic solutions
-
KX-TD500 Maintenance Console
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...- Babscoole
- Thread
- Replies: 4
- Forum: Panasonic solutions
-
VBScript Access Error Checking
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. -
VBScript Access Error Checking
...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 = '" &... -
VBScript Access Error Checking
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... -
VBScript Access Error Checking
...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 '... -
VBScript Access Error Checking
...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... -
Error Handling in file search
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... -
Error Handling in file search
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... -
File array script
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... -
Error Handling in file search
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... -
File array script
...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 -
Error Handling in file search
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. :) -
Error Handling in file search
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... -
File array script
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... -
Error Handling in file search
...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 " &... -
File array script
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. -
File array script
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)... -
File array script
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.
