common dialog not returning file names.

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - vlookup thanks Andy for the reply. i tried writing something similar to what you suggested but i get error. i wrote Public LookupValue As Range Public TableArray As Range Set LookupValue = Sheet3.Range("O2") Set TableArray = Workbooks(MyPath).Worksheets("Sheet3").Range("$A$5:$F$281") ............... error here The error is Run Time error 9 Sub-Script out of range can you please help thanks namrata Tag: common dialog not returning file names.
  - 2
    - Mouseover event on shapes (Excel 2003) Can I set a mouseover event in VBA on a shape (copied picture) I have a module that copies an inserted image from one sheet to another sheet based on cell values denoting the placement of the copied image. The copy is then handled as a shape to set Name, Alt Text, and so on and the sheet is saved as a web page for browser viewing. Is there a way to set a mouseover event for a Shape object so that when someone points at the image on the web page, the image changes Code Snippet ' Go to the Display sheet and paste the copied image into the cell referenced Sheet1.Activate Sheet1.Range(pRange).Select ActiveSheet.Paste Application.CutCopyMode = False ' Set the AltText and Name to match the server network name Sheet1.Shapes(Sheet1.Shapes.Count).Name = sRange & "-" & namePicture Sheet1.Shapes(Sheet1.Shapes.Count).AlternativeText = namePicture ' Format picture by calling washPicture() from module3 washPicture ' Put the picture name in the cell one over to the left and hyperlink it ActiveCell.Offset(0, -1).Range("A1").Select ActiveCell.FormulaR1C1 = namePicture ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ namePicture, TextToDisplay:=namePicture Tag: common dialog not returning file names.
  - 3
    - VBA ADO Error Handling Method If the process runs into an error, I would like it to put the record into the 'Errors' tab, then move onto the next value in the array and add it to the database. Could you give me a little more info about using the boolean variable with the procedure. Thanks for the help! Tag: common dialog not returning file names.
  - 4
    - text parsing in excel I knew and forgot that actually...thank you Tag: common dialog not returning file names.
  - 5
    - Combobox behaving oddly! Hi Keith, Looks like a bug with the control. Try this code to update the control when the contents of the dynamic range changes. I used Paul's example of a named range formula and called it MyRange. Code Snippet Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, ActiveWorkbook.Names("MyRange").RefersToRange) Is Nothing Then With ListBox1 .ListFillRange = "" .ListFillRange = "MyRange" End With End If End Sub Tag: common dialog not returning file names.
  - 6
    - Possible to run code after Word closes? How about save document as in C:\Export\, then, open up your origianl code document, then close the Exported document and invoke delete from the orignal document But the easies way is to Creat a new workspace document when user opens your program. When user is done. Your program can then to whatever it wants and save the workspace and email and delete. Like yourCodeDocument.doc creates a new Temp.doc, save Temp.doc, email Temp.doc, and delete Temp.doc. Basically your code will affect external document, not itself. Tag: common dialog not returning file names.
  - 7
    - how to get the hyperlink value from an excel sheet cell Thanks Peter... Your function helps if I run it from within Visual Basic Editor as a macro or sub How can I get the same hyperlink address from within Excel, by referencing the cells ! The thing I am trying is to export data from Excel to Oracle by writing something like ="Insert into stofbib (Plate_ID,Well_ID,Compound_ID,Stofoversigt,Dokumentation, Fremstillet_af,Modtaget_dato,Projekt,ml_leveret) values ('" & A5 & "','" & B5 & "','" & C5 & "','" & D5 & "','" & E5 & "','" & F5 & "','" & G5 & "','" & H5 & "','" & I5 & "');" Some of these cells have a hyper link under them that I want to get, without I need really to make a VBA program! Any idea if I can get that Tag: common dialog not returning file names.
  - 8
    - Printing using the Microsoft Office Document Image Writer printer and C# Hi all, I am trying to print, without user interaction, a PDF file to the Microsoft Office Document Image Writer. If use System.Drawing,Printing.PrintDocument, I'm able to set the destination file but when it gets to printing the file, I can't since it has to know how to render the PDF file. Now, I tried using the print command in the command prompt but when I want to specify the Microsoft Office Document Image Writer it says it can't initiliaze the printer. Can anybody give me a hand on this one I want to do it either way. For those who don't know the print command do the following: Go to Start Click on Run Type cmd if you are using XP Type print in the command line Thanks in advance, Tag: common dialog not returning file names.
  - 9
    - Complex report generation from datatable..challenging one plz help I have created datable which normally has 5000 records upto 1 lakh records depending on runtime value....i want to display rows of datatable to user in particular format... 1] odd rows with yellow back ground 2] even rows with green back ground 3] if value of cell in odd rows is not eqaul with value of cell in even row then both cells's text should be bold and with red color given pic is view that report should look like right now i am doing by putting that data in excel programatically using excel object but it is very slow....it takes hell lot of time ....15-20 minutes just for 300 rows only then i tried to write those data as html table format and generated .html file and i opened it with excel....got happy that it is done in some seconds but when opening with excel i found that it gets hanged if it has more than 10000 rows....so now i am totally stuck is it possible to get it done using xslt transformation and how will color font color in xslt at run time by matching data or any other way to represent table content with same formating but in any other file format please help.... Tag: common dialog not returning file names.
  - 10
    - importing data from an ODBC datasource using a filter How can I use a filter on an import table into my Access database Do I use SQL statements in a module or VBA Tag: common dialog not returning file names.
  - 11
    - VBA help with a conditional Subscript out of Range I am not sure if i could have gone that route or not. But I actually did find a way to "bypass" it so to speak. I used the error to my advantage, through a suggestion on another forum. heres the code that I used to get around it. Code Snippet If UBound(ResultsTrend) > 0 Then If Err.Number = 0 Then testArray = 1 Else testArray = 0 End If End If If (testArray = 0) Then ResultsTrend2 = GetTrendData(Server, Username, Password, TrendStartDate, TrendEndDate, 0, 0, OverrideTemp(k).Range("F2").Value, Status) size = (UBound(ResultsTrend2) + 1) / 2 index = 0 For i = 1 To size OverrideTemp(k).Cells(EventStartTime.Row, EventStartTime.Column).Value = ResultsTrend2(index) OverrideTemp(k).Cells(EventStartTime.Row, EventStartTime.Column).HorizontalAlignment = xlCenter OverrideTemp(k).Cells(EventDuration.Row, EventDuration.Column).Value = ResultsTrend2(index + 1) OverrideTemp(k).Cells(EventDuration.Row, EventDuration.Column).NumberFormat = "0.0" OverrideTemp(k).Cells(EventDuration.Row, EventDuration.Column).HorizontalAlignment = xlCenter Set EventStartTime = OverrideTemp(k).Cells(EventStartTime.Row + 1, EventStartTime.Column) Set EventDuration = OverrideTemp(k).Cells(EventDuration.Row + 1, EventDuration.Column) index = index + 2 Count = Count + 1 Next Else Tag: common dialog not returning file names.
  - 12
    - 2 Small Macro problems. Thank you. Your solution to problem 1 works perfectly. I'm still struggling with problem 2. I may just leave it in the macro. It works; it's just that the operator has the click "OK" to save changes. Tag: common dialog not returning file names.
  - 13
    - MSDN Download Hi, I found out at microsoft download site that the latest version of MSDN could be downloaded free of cost. Has any body tried downloading the image file and is the MSDN fully functional Or is it an evaluated version which will expire after some days Please find the link to the page below. http://www.microsoft.com/downloads/details.aspx familyid=94596AF5-CC58-45AF-A14B-DF627A31E783&displaylang=en Tag: common dialog not returning file names.
  - 14
    - some mp3 play some others don't What Do you mean , if you have some experience be more specific. Tag: common dialog not returning file names.
  - 15
    - Access Data Project - Selecting Data What are the best pratices on selecting single values from SQL Server tables (ADO) in VBA code in an Access Data Project The command.execute method returns a ADODB.Recordset so a SQL SELECT statement can be executed and moving to the first record of the recordset to get the value. But seems a little extreme to lookup one value. The DLoookup methods used for Access tables (DAO) are not available for ADO. In .NET there is a sqlcommand.executescalar which returns a single object. What is the recommended method to select a single value from a SQL table Tag: common dialog not returning file names.
  - 16
    - Vlookup in VBA Awesome thanks. I will give it a shot tomorrow and let you know how it goes. Tag: common dialog not returning file names.
- Next
  - 1
    - Writing result in Excel I found it, thank's to your help. The ideea is if you want to write in the cell you give a value to the function name (DgrMinSec2DecDgr), not writing ActiveCell.... Is working even with Double. Tag: common dialog not returning file names.
  - 2
    - Inserting Comments in Excel...from a Beginner Thanks, Keithyboy1. I understand what you're doing here, and it is a much simpler approach than I imagined. I have input the code, however, and am receiving an error. The input box comes up, and I'm able to select my range, but when I get the error and choose "debug", it takes me to the line that you made bold. It's giving me that stupid "Run-time error '1004'" message, which offers no help, so I'm not sure what to do. Any further assistance would be appreciated! Tag: common dialog not returning file names.
  - 3
    - About SAP MM and SD Hi, I'm a Mechanical Engineer from Chennai, India, with about 2 years experience in Project Engineering. I worked with the order management team of an MNC and handled inquiries on design, material and manufacturing, co-ordinated with vendors and clients, and have also done post shipment analysis. I just want to know if studying SAP - MM or SD will be a good career option for a mechanical engineer. I also want to know if I'll get a job immediately after studying SAP and what are the technical skills that IT companies expect when they recruit people. It would be nice if someone with a similar background explains his/her experience about the selection process, the interview and career growth pattern that one can expect in this field. Tag: common dialog not returning file names.
  - 4
    - Excel-Capture the sum of Highlighted Range Thanks. Your idea help me think of some different approaches and I arrived at these lines of code: Range("l2").Select Range(Selection, Selection.End(xlDown)).Select y = Application.WorksheetFunction.Sum(Selection) Any thoughts on what I have above I've used CountA in the past to capture number of rows, but the function seems to create big files. I appreciate you taking the time to respond to my post. Tag: common dialog not returning file names.
  - 5
    - LCS 2005 Not Showing Options in Administrative MMC Hi, For future reference, there's an excellent resource for Live Communications Server 2005: http://www.microsoft.com/technet/community/newsgroups/server/livecomm.mspx On that page you'll find links to a general LCS newsgroup and a developer newsgroup, both of which have a number of LCS experts available to assist with any LCS questions. -brenda (ISV Buddy Team) Tag: common dialog not returning file names.
  - 6
    - adding text to cell with vba script but how do i put 2 items on there. I'm drawing from 12 different spreadsheets. so in this case it would kind of be like putting "hello" & "world" but i have the syntax wrong. Tag: common dialog not returning file names.
  - 7
    - How to test Com Addin for ISV test Thanks for response. Our product(authorPOINT) is Power Point Plugin and built in C# . Let me know for a addin what tests can be conducted to make sure it qualifies. You can download it from http://www.authorgen.com/authorpoint/trialversion.htm . Tag: common dialog not returning file names.
  - 8
    - Dear DMan1 could you just be a little more explicit about how I name the Sub1? Hi DMan1, I am going to set up a Blank Excel Worksheet qnd in the VBA section I will write your code. The macro wil have to include the names and locations of the files/workbooks and the names of the macros within them. This is where I am a bit lost. Lets say the workbook is C:\datafiles\process01 and at has a macro in it called SetUpFields01 then how does your code pan out. The next file is 02 in the same location. I appreciate your help. Thanks. Hamish Tag: common dialog not returning file names.
  - 9
    - VBA + Bloomberg ok but it takes some time to retrieve the Bloomberg data. How will the macro know that everything has been updated at 100% and then it can be copied and pasted that's my main issue Tag: common dialog not returning file names.
  - 10
    - Stuck on logic for Excel problem... Thank you so much for the code, i honestly didn't expect anyone to actually draft me out a full solution - not that im complaining!! I have copied the code in and am trying to understand it so i can make any minor tweaks that are needed to get it working. I have never used range before - i take it this works similar to a vlookup in this sense. I am working my way through it but not sure what it does to the second sheet as it doesn't work 100% when i run it in its current state. Does there have to be data in the second sheet or will it work if it was blank Tag: common dialog not returning file names.
  - 11
    - how do re-enable marco after it stopped? Hi Andy, I think you hit the nail by the head. I do have Application.EnableEvent = False within my code. Like you suggested, it most lilkely encountered bugs (as i modify my code) after Event turned to false and I have don't know how to turn it back on. [code] 'run this method when cell value has changed Private Sub Worksheet_Change(ByVal Target As Range) 'only excute this method when cell is D4 If Target.Address = "$D$4" And Target.Count = 1 Then Dim orgStr As String, storeStr As String orgStr = Target.Value 'this will store the value user just changed Application.EnableEvents = False 'set a cell from datasource as a place holder Dim rng As Range Set rng = Worksheets("datasource").Cells(Target.Row, Target.Column) storeStr = rng.Value Target.Value = Trim(Target.Value) If Target.Value = "" Then 'user deleted value rng.Value = "" ElseIf manualDelete(orgStr, storeStr) Then 'accept/retry datay entry if user manually edit data Dim userResponse As Integer, promptMsg As String promptMsg = "You have manually edited the value. Excel cannot gurantee the data intgrity. Please select 'OK' to accept manual changes or 'Cancel' to re-enter the value." '1 is ok, 2 is cancel userResponse = MsgBox(promptMsg, vbOKCancel, "Attention when enter data manually:") If userResponse = 1 Then rng.Value = Target.Value Else Target.Value = rng.Value End If Else 'user used drop-down-list If rng.Value = "" Then 'brand new entry rng.Value = Target.Value Else If Not isItemExit(Target.Value, rng) Then 'write to binder only when value is unique rng = rng & ", " & Target.Value End If Target.Value = rng.Value End If End If 'target.value = "" Application.EnableEvents = True End If 'end cell is D4 End Sub [/code] Tag: common dialog not returning file names.
  - 12
    - Solver in VBA - variable "Bychange" value You hinted at the answer when you mentioned the regional setting (Portuguese language). This also includes settings such as currentcy format, thousands separator, decimal indicator, and series separator. Use commas, not semicolons, to separate the cell addresses in the ByChanging string: VAR1 = "$H$9,$H$10,$H$11,$H$12,$H$13" - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ Tag: common dialog not returning file names.
  - 13
    - I need help modifying Sharepoint I am trying to modify a few things in Sharepoint and I can't seem to figure out how. First off, is there a way to change the categories that are displayed on the homepage. I currently have announcements, links, and discussions displayed. I am wondering how I can have a list of my documents added as well. I also have a calendar but it isn't displayed on the home page. Please let me know if you can help. Mike Tag: common dialog not returning file names.
  - 14
    - MODI Exception - Running out of memory on Set_Document method of MODI document object Hi, I am using the Microsoft Office 2003 Document Imaging libraries with Visual Studion 2005. I have the following VB.NET code which processes many tiff files and then at some point it comes up with exception. At which point, it corrupts something because i can not use the VS IDE to open the main form in design mode saying that it encountered an error most likely indication that memory is corrupt. In any case, i have the MODI from 2003 version 11 installed and used the toolbox and added a reference to my form. The form contains a button which starts a new thread to process files. The part of the processing of files which requires looking into tiff file content requires calling this function below. The code is expected to run through 9749 TIFF files, it comes up with exception on my laptop running windows XP Office 2003. When i use Office 2007, this does not happen (i.e. i don't get the exception). Is there a difference between MS Office Document imaging in 2003 and in 2007 that could cause memory corruption problem I have included the excerpt from the code that does the modi processing, i think that i may also not be releasing COM object handles in the right order. Can anyone help in this forum or do i need to post to another Out of memory exception on Set_Document of the MODI document object. What i suspect is that because i don't correct the object handles correctly the first time an image runs through this code, the consequtive times for the remaining images, it fails on tiffDoc.Create(fileName). Any help would be appreciated. Ibrahim at bramoin@yahoo.com Code Block Public Sub TiffEvaluate(ByVal fileName As String, _ ByVal startingPageNum As String, _ ByVal endingPageNum As String, _ ByVal ocrCheck As Boolean) Handles loadFileCheck.TiffEvaluate CheckTiffImage(modiTiffView, fileName, startingPageNum, endingPageNum, ocrCheck) End Sub ' This routine is called from another thread, that explains the Me.Invoke logic. ' The function of the remainder of the logic is to use the MODI object and read ' the tiff image compression and after telling it to OCR the document search the ' resultant text string for text matching those specified by starting and ending ' page numbers. These two strings will be different for multiple image TIFF files. ' ' SPECIAL CONSIDERATIONS: ' The OCR software in MODI will sometimes see '1' as 'I'. As a result, we ' need to search for both 'something1' and 'somethingI' Private Sub CheckTiffImage(ByVal uiElement As Control, _ ByVal fileName As String, _ ByVal startingPageNum As String, _ ByVal endingPageNum As String, _ ByVal ocrCheck As Boolean) Dim tiffFile As String = fileName Dim startPage As String = startingPageNum Dim endPage As String = endingPageNum If uiElement.InvokeRequired Then Dim d As New CheckTiffImageCallback(AddressOf CheckTiffImage) Try Me.Invoke(d, New Object() {uiElement, tiffFile, startPage, endPage, ocrCheck}) Catch ex As Exception End Try Else Dim result As Boolean = False Dim left As Integer = 0 Dim top As Integer = 0 Dim tiffDoc As MODI.Document = Nothing Dim tiffImages As MODI.Images = Nothing Dim imageLayout As MODI.Layout = Nothing Try ' the following lines are for ui update to let the user know what is going on. tiffDocumentCount += 1 lblTIFFDocCount.Text = tiffDocumentCount.ToString() lblTIFFDocNumber.Text = startPage lblTiffBoxNumber.Text = tiffFile.Substring(tiffFile.IndexOf("BOX"), _ (tiffFile.LastIndexOfAny("\") - tiffFile.IndexOf("BOX"))) ' CAUTION: There are two ways to load the MODI ActiveX Viewer object: ' one way is to assign the filename of the viewer object, that proved buggy since ' the document object is realized when the image is displayed. And because the display ' of the image immediately after the Show method below is not garanteed, it caused ' file mis-read. ' In our implementation, below we create the document first and then assign it to the object. ' This seems to bring the memory usage of the application and the IDE environment down to a ' more stable level. tiffDoc = New MODI.Document If Not tiffDoc Is Nothing Then ' opens the tiff file tiffDoc.Create(tiffFile) ' assigns the MODI viewer object the document object created modiTiffView.Document = tiffDoc ' displays the MODI viewer object modiTiffView.DocViewMode = MODI.MiDocviewMode.miDOCVIEWMODE_SINGLEPAGEVIEW modiTiffView.FitMode = MODI.MiFITMODE.miByWindow modiTiffView.Show() tiffImages = tiffDoc.Images ' count of images in the tiff file Dim imageIndex As Integer = 0 ' utility for storing part of a string Dim strItems As String() ' number representing the current page Dim currentPageNum As String = "" Dim docNum As Integer = 0 Dim imageEnum As IEnumerator = tiffImages.GetEnumerator() While imageEnum.MoveNext ' get the image in the MODI Document's Images object Dim image As MODI.Image = imageEnum.Current If ocrCheck = True Then ' modiTiffView.SetScale(2, 2) ' Adjust the image to view lower right corner in the window ' Dim height As Integer = image.PixelHeight ' Dim width As Integer = image.PixelWidth ' left = width - Panel1.Width ' top = height - Panel1.Height ' modiTiffView.MoveRectIntoView(left, top, width + left, height + top) If Not image Is Nothing Then ' first check the image compression If image.Compression <> MODI.MiCOMP_TYPE.miCOMP_TIFF_LZW Then UpdateMessage(DISPLAY_ID.PROPGRESS, _ "...TIF Compression-Check successful for: <" & _ tiffFile & "> found: <" & _ MODI.MiCOMP_TYPE.GetName(image.Compression.GetType(), image.Compression) _ & "> for image number <" & imageIndex.ToString() & ">.") Else UpdateMessage(DISPLAY_ID.PROPGRESS, _ "...TIF Compression-Check processing error: <" & _ tiffFile & "> found: " & image.Compression.ToString() & " compression " & _ "for image number <" & imageIndex.ToString() & ">.") UpdateMessage(DISPLAY_ID.FINAL_RESULT_ERROR, _ "...TIF Compression-Check processing error: <" & _ tiffFile & "> found: " & image.Compression.ToString() & " compression " & _ "for image number <" & imageIndex.ToString() & ">.") image = Nothing Exit While End If ' This will cause it to OCR the current image image.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH, True, True) ' form the currentPage string, by taking the last part of the ' sartPage string and then adding the imageIndex strItems = startPage.Split("-") If strItems.Length > 0 Then Dim docSequenceNum As String = strItems(strItems.Length - 1) ' converted string will be stored in docNum If Integer.TryParse(docSequenceNum, docNum) Then docNum += imageIndex ' the problem here is that the leading zeros are lost docSequenceNum = String.Format(docSequenceNum, docNum) ' include the dash (that is why we have +1 below) currentPageNum = startPage.Substring(0, startPage.LastIndexOf("-") + 1) currentPageNum += docSequenceNum Else If tiffImages.Count > 1 Then UpdateMessage(DISPLAY_ID.FINAL_RESULT_ERROR, _ "...TIF image error: <" & _ tiffFile & "> can not convert docNumber <" & _ currentPageNum & "> for images.") End If End If End If ' Layout is an object created by the OCR process imageLayout = image.Layout result = SearchOCRForNumber(imageLayout.Text, currentPageNum) imageLayout = Nothing If result = True Then UpdateMessage(DISPLAY_ID.PROPGRESS, _ "...TIFF image OCR was successfully verified for: <" & _ tiffFile & "> image number <" & imageIndex.ToString() & _ "> and document number <" & currentPageNum & ">.") tiffOcrCount += 1 Else ' Depending on the orientation, the OCR text may not contain what we ' are looking for. So rotate it 90 degrees, OCR and search again. image.Rotate(90) image.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH, True, True) imageLayout = image.Layout result = SearchOCRForNumber(imageLayout.Text, currentPageNum) imageLayout = Nothing If result = True Then UpdateMessage(DISPLAY_ID.PROPGRESS, _ "...TIF image OCR was successfully verified for: <" & _ tiffFile & "> image number <" & imageIndex.ToString() & _ "> and document number <" & currentPageNum & ">.") tiffOcrCount += 1 Else UpdateMessage(DISPLAY_ID.PROPGRESS, _ "...TIF image OCR check failed for: <" & _ tiffFile & "> image number <" & _ imageIndex.ToString() & "> and document number: <" & _ currentPageNum & ">.") UpdateMessage(DISPLAY_ID.FINAL_RESULT_ERROR, _ "...TIF image OCR check failed for: <" & _ tiffFile & "> image number <" & _ imageIndex.ToString() & "> and document number: <" & _ currentPageNum & ">.") End If End If End If Application.DoEvents() ' release the reference to the image object image = Nothing imageIndex += 1 End If End While Else UpdateMessage(DISPLAY_ID.FINAL_RESULT_ERROR, _ "...Error: MS Office Document Imaging was unable to create a TIFF document for <" & _ tiffFile & ">.") End If Catch ex As Exception UpdateMessage(DISPLAY_ID.FINAL_RESULT_ERROR, _ "An exception occurred: <" & ex.Message & ">, this error happened when " & _ "Procedo was trying to process file: <" & tiffFile & ">.") Finally ' Do more clean up If Not imageLayout Is Nothing Then imageLayout = Nothing End If If Not tiffImages Is Nothing Then For Each tiffImage As MODI.Image In tiffImages tiffImage = Nothing Next End If If Not tiffImages Is Nothing Then tiffImages = Nothing End If If Not tiffDoc Is Nothing Then tiffDoc.Close(False) ' False means don't save changes modiTiffView.FileName = "" tiffDoc = Nothing End If End Try lblTIFFOcrCount.Text = tiffOcrCount.ToString() End If End Sub Tag: common dialog not returning file names.
  - 15
    - Tried EVERYTHING! I need help! Hey All, TWO QUESTIONS...please let me know if you can help me with either.. 1) I have a problem with Internet explorer, everytime I close a window this message appears: The instruction at "0x01cb3795" referenced memory at "0x01794658". The memory could not be "read". Click on OK to terminate the program I uninstalled internet explorer, then installed it again, I tried many programs that allegedly fix problems, and nothing is working!!!! 2) Later i installed internet explorer 7.0, the new one, same problem as above, but the biggest problem was that whenever I tried to open a new "tab" not window, all the windows on internet explorer are automatically shut down in 5 seconds! also uninstalled it, then downloaded again, nothing works! I don't know if these are related. Apperciating your time, Zeenah Tag: common dialog not returning file names.
  - 16
    - How to create a chat room on Communicator 2005 Does not look like Microsoft is bothering to monitor these forums ... prove me wrong Microsoft ... Tag: common dialog not returning file names.

alidabiri

Hi everyone.

i have a vb script that is imbeded in an html page (hta). when i use the common dialog flags = cdlOFNAllowMultiselect the file list is present in the filename object and are separated by a space. however when i use dialog flags = cdlOFNAllowMultiselect Or cdlOFNExplorer the files that i selected on the dialog box, are not present in the filename object. the only thing that's there, is the path to the files.

here's the code:

Const cdlOFNAllowMultiselect = 512

Const cdlOFNExplorer = 524288

Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
ObjFSO.Filter = "All Files|*.*"
ObjFSO.FilterIndex = 1
ObjFSO.InitialDir = "c:\"
ObjFSO.Flags = cdlOFNAllowMultiselect or cdlOFNExplorer
InitFSO = ObjFSO.ShowOpen

selected_files = ObjFso.FileName
msgbox selected_files

the variable "selected_files" should have the file names. but it only shows path.

any ideas why this is and how can i get the files names

thanks so much.

Top