Database Search

TechHome

• !!DISCLAIMER!!
• ADO Table Schemas
• Append RTF files Using COM
• AskFileName Alternative
• Binary OLE example
• Brother Label Printer with b-pac SDK
• Check CDROM Ejected
• COM Object for DLL Calls
• Convert Word Doc to PDF
• Create XML DB from the TXT file then do OLE Lookup
• Creating Shaped Hierarchical Recordset
• Crystal Reports Print Extender
• CSMail Search Inside Mime Messages
• Date Picture Taken
• Delete Message from Exchange
• Directory Browse Dialog Created Using OLE Shell Functions
• Display Spreadsheet as HTML
• Email Address Validator
• Enabling Automatic Updates
• Enumerate Certificates
• Enumerate Windows Updates
• Export Data crom Crystal Reports to Excel
• Forwarding Email Messages
• Get Current Unix TimeStamp
• GroupWise and WinBatch
• IBM Personal Communications Connect Via COM
• IIS UDFs
• Import CSV File Using Office Web Components Spreadsheet
• Inspect mail messages - CDO
• Locate and Validate Credit Card Numbers Using RegExp
• MakeCAB
• Minimize all windows
• Oracle Object for OLE OO4O Access
• Powershell COM
• Publisher SaveAsPicture
• Remove Duplicate Lines from Text File
• Remove SMS Cache Folder
• Set Groupwise Contacts Link
• SkyPe Enumerate Contacts
• SkyPe UDFs
• SNMP v1 Examples
• SQL Syntax Tool
• Symantec LiveStateRecovery ImageJob Code
• Symantec ProtectorAuto OLE Script
• Template Create IIS Site
• Use XMLHTTP to Download a File
• Windows Update Agent

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

AskFileName Alternative

;This requires...C:\WINNT\system32\Comdlg32.ocx

; Get file to manipulate
CDObj = CreateObject("MSComDlg.CommonDialog")
CDObj.MaxFileSize = 260 ; Init buffer (NECESSARY!)
CDObj.Flags = 4 ; File Must Exist + no ReadOnly checkbox
CDObj.Filter = "All Files (*.*)|*.*|Winbatch Files (*.wbt)|*.wbt"
;CDObj.Filter = "Winbatch Files (*.wbt)|*.wbt"
CDObj.InitDir = dirscript()

CDObj.DialogTitle = "RPC Select File"

CDObj.ShowOpen()
;
fname = CDObj.filename
; Cancel or no file name?
If fname <> "" 
	Message( "The file you chose is " , fname)
else
	message("Debug", "You hit Cancel")
End if
CDObj = 0

Reference:

http://msdn.microsoft.com/library/en-us/cmdlg98/html/vbobjcommondialog.asp?frame=true

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmdlg98/html/vbproFlagsFile.asp

Article ID:   W17190

File Created: 2007:07:03:14:28:40

Last Updated: 2007:07:03:14:28:40