Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  HOME    TRACKER    Visual Basic

Error During Debug / &"Open&" Not Recognized

I am not sure if there is a problem with my installation of but I am having an odd problem incorporating file I/O commands into my program.

Open ("myfile.txt") For output As #1
Results in the following error when I goto debug my program.


'Open' is not declared. File I/O functionality is available in the 'Microsoft.VisualBasic' namespace.

I have gone to Project >> Add Reference and made sure that MIcrosoft.VisualBasic was there, and if I look in the Solution Explorer and look in the "references" folder then MIcrosoft.VisualBasic is shown in the list.

I have added other references (Speech Library) and the commands work fine, but I can not get file I/O commands to work properly.

I have closed the program and rebooted, and I have copied known good code from tutorials and posts in these forums to no avail...

Any ideas?



View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Solution> Error: &"&"&"&"&H8007007E (-2147024770) The Specified Module Cannot Be Found&"&"&"

This is the error what i am getting after installing a package of one of my module on user testing machine.
The same module being working fine on others.

What can be the reason for this and what can be the probable solution for this?


How Do You Stop That Annoying &"Javascript Error - Do You Wish To Debug&"? Error
Try this:

<script language="JavaScript">

function stopError() {
return true;

window.onerror = stopError;


Windows &"start&" Command Not Recognized In VB On Some Systems?
What I want to do is open a PDF document in the user's installed handler for PDFs. The way we currently do it we open Acrobat Reader 5 from the network. If the user is already running another version of Acrobat, that program intercedes instead.

I have tested the windows "start" command and it works in all the computers. We are calling the program via the Shell command. It looks like there is a different shell for VB? It works in some computers and not in others.

Is there any other way of doing this? Or a way to get the "start" command to work using a different shell, or something?

How Can I Open Msword.exe And Open The File And Replace For Exemple " Help " To "helps"???????
How can I open msword.exe and open the file and replace for exemple " help " to "helps"???????
I like using oop of vb.


Error &"invalid Method &" When Im Using To Open Movie File With Mp.Open Plist.list(0)
Any 1 tellme how this error occure
i m using open command to open movie file from list box
but movie play also give me error " Invalid Method" using this code plist.list(0) ' here this line give error'

in this method playstatus = mpPaying condition is not working if i open file with mp.FileNme = plist.list(0) then above condition works fine

so pleaee tell me accept mediaplayer any way to play all movie file from list box

If I Use "SaveSetting App.Title, "Settings", "Font", "001122"" - Save Date In The Registry, Where Ca
If i use "SaveSetting App.Title, "Settings", "Font", "001122"" - save date in the registry, where can i find the value saved in the registry? Thanks

&"connection&" Does't Recognized
i use for a long time macro on my "regular" word xp.
in this macro i use this line:

dim db as connection

and it is working great.

now i have copy my macro to another machine that have "xp developer" on it. and i keep getting error massege for this line: "use defined type not defined". i tried to ad refferns but it didn't work.

does the developer doesn't recognize this type, or what should i do that it will be working?

Error In Crystal Report &"Server Has Not Been Open Yet&"
I have a problem. I have my database in a server and i connect to the database with a odbc driver. All my connections in my program are ok, but when i try to open a report in crystal reports the next error appears.

"Server has not been open yet"

Anyone knows what i need to do?

Error In Crystal Report - &"server Has Not Yet Been Open&"
hi experts,
I am building reports using crystal report 8 in my VB application. the datasource is Oracle 8i(8.1.6).
When i built a report using the report expert in Crystal report it has successfully created the report.
But when i ran the application i throws an error (ORA01005) saying - "null password was given; logon denied" and "server has not been yet started"

i have not written any code, i just used the wizard(report expert) and i have give the correct user name and password.

also i did the same thing without wizard, using code. the code which i have written is in the follwoing lines.

Const ConString = "Provider=MSDAORA.1;User ID=gtsc;password=gtsc;Data Source=portal1;Persist Security Info=False"

Private Sub Report_Initialize()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = ConString

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "Select * from emp", con, 3, 2, 1

Database.SetDataSource rs
End Sub


so any body can help me on this issue.
immediate help is required.
thanks in advance.


&"Unspecified Error&" When I Try To Open A Recordset Invb6
I am using vb6 and sql server 2000 db.

I got an error "Unspecified error" when I try to open a recordset.


strSQL ="SELCT * FROM Cust WHERE Cust_Num ='" strdata & "' "
set rcs = new ADODB.RECORDSET
rcs.Open strSQL, Conn, adOpenKeyset , adLockOptimistic

Can anyone tell me what cause it?
Thanks a lot.

&"operation Is Not Allowed When Object Is Open&" ERROR
hello everyone

i have to do a report
when i click on the command button, the report is finely displayed
however, when i close the report and i try to open it again, it says "operation is not allowed when object is open"
here is my code:

Private Sub cmdorder_Click()
        DataEnvironment1.rsqryorders.Open "SELECT * from Orders"
        Set Reportorders.DataSource = DataEnvironment1
End Sub

the places where i commented the "DataEnvironment1.rsqryorders.Close" is the places where i tried to close it
however, all were unsuccessful
where should i close it?

Edited by - crazyngel on 11/15/2005 9:47:36 PM

&"Run Time Error 20599&" : Can Not Open SQL Server
Hi all,
I am using SQL OLE DB connection in VB6 for connecting with SQL Server 7.I also made the report using OLEDB connection.When I am using preview option of the report, I am getting expected out put.But while calling the same report from VB6 ,I am getting Run time Error '20599': Can not Open Sql Server.

If I am calling the same report with saved data it's working fine.

My VB6 Code is as follows

'''***************From Here****************'

Public gdbConn As ADODB.Connection

Set gdbConn = New ADODB.Connection

gdbConn.Open "Provider=SQLOLEDB.1;Persist SecurityInfo=True;Initial Catalog=Databasename;Data Source=My Comp Name;User ID=MyUserName;Password=MyPassword;"

Crpt.Connect = gdbConn
Crpt.WindowState = crptMaximized
Crpt.WindowMaxButton = False
Crpt.ReportFileName = "MyReportName.rpt"
Crpt.Action= 1

'''***************Upto Here****************'

Do you have any suggestions on how to work around this problem?

Thanks in Advance


Error In Crystal Report - &"server Has Not Yet Been Open&"
hi all,
I am building reports using crystal report 8 in my VB application. the datasource is Oracle 8i(8.1.6).
When i built a report using the report expert in Crystal report it has successfully created the report.
But when i ran the application i throws an error (ORA01005) saying - "null password was given; logon denied" and "server has not been yet started"

i have not written any code, i just used the wizard(report expert) and i have give the correct user name and password.

so any body can help me on this issue.
immediate help is required.
thanks in advance.

A Stupid Problem: &"Error Accessing The System Registry&" (&"Solved&") Thank You
This is a very silly problem. I tried to have a look of References from Project dropdown menu, it returned a critical error:

"Error Accessing the system registry".

I reinstalled VB6 but it seems that the problem still exists. Anybody please tell me how to solve the problem.

thanks in advance

Edited by - kenyiwei on 5/6/2004 2:07:51 AM

ShellExecute PDF &"file Already Open&" Error

Running Vista and VB6:

I'm using shellexecute to launch files with their associated application. This works for all files except PDF files. With PDF files, I can launch a given file one time successfully, then any subsequent attempts to launch that same file results in the following:

* Adobe Reader opens
* Adobe Reader reports the following error:
"There was an error opening this document. This file is already open or in use by another application."

I can open the file by double-clicking on it from Windows Explorer.

After some time passes, I may or may not be able to successfully launch this same PDF file from my app. Restarting my app has no effect on this behavior.

Here is the code I'm using:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL as Long = 1

sAddr = sAddr & vbNullChar
lHndl = ShellExecute(mf.hwnd, "open", sAddr, "", "", SW_SHOWNORMAL)

Any clues would be much appreciated.

ERROR &"RS.Open StrSQL, AdoCon&"
Hi guys, i am just the beginner here..and in VB and SQL as well..i got this problem "Invalid Column Name 'DMedia'" can i check the column name in the database?

MSComm "port Already Open" Error
Hi all,

When I try using the MSComm component i keep getting "Port already open" errormessages. But when I try closing the port before I open it I get "The device is not open".

What is going on here?

EnumWindows AddressOf EnumWindowsProc, 0 &"Syntax Error&"</title> <script Type="text/javascript"> <!-- Function PrintTags() { Var Curr=document.getElementById('vB_Editor_QR_textarea').value;
I get "Syntax Error" when i put this code in to a button. Whats wrong?

EnumWindows AddressOf EnumWindowsProc, 0

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim Length As Long
Dim sName As String
Dim Temp As String
Static iCount As Integer

iCount = iCount + 1
Length = GetWindowTextLength(hwnd) + 1

If Length > 1 Then
sName = Space(Length)
GetWindowText hwnd, sName, Length
If Left(sName, Length - 1) Like "Order*" Then MsgBox "window found!"
End If

EnumWindowsProc = 1
End Function

&"Close&" Web Browser Control And &"Re-Open&"
If a user attempts to login to a site within my app too many times with the wrong details a javascript msgbox appears saying similar to "you've tried to login unsuccessfully ...blah....blah....please close your browser, re-open it and try again"

How do i "close" the web browser control and then "re-open" it so the user can attempt to login again?

Database "Save As" And "Open" Function
I developed one system using VB and Microsoft Access for one company. Because the company is not big, the system is a desktop edition, not the the Web based applications. Now they are asking me to add two more functions of "Save as" and "Open" to the system. That is they want to save the database file as another database file (also in mdb format), so they can keep the old databse file and let the new installation in another computer could open the old database file. Just the same way as using Microsoft Word, you can edit and save one file to, for example, a zip disk and then be open in another computer, the file format does not change. How can I do that? Your opinions will be highly appreciated.

&"Close&" Web Browser Control And &"Re-Open&"
If a user attempts to login to a site within my app too many times with the wrong details a javascript msgbox appears saying similar to "you've tried to login unsuccessfully ...blah....blah....please close your browser, re-open it and try again"

How do i "close" the web browser control and then "re-open" it so the user can attempt to login again?

Open &"LPT1&" Error
Why am I getting a error message when I try to write to LPT1?

Open "LPT1" For Output As #1
Put #1, , Chr$(10)
Close #1

Error Message:
Run-time Error '53':
File Not Found


Open &"a.txt&" For Input As #1 Error =P
Ok i want the whole file to be read in 1 shot i know i allready done that but i don't remember how cuz my problem is the line feed and carriage return and space they aren't loaded i done it like that...

Dim strPhrase As String
Dim Tout As String
Open "Classified.txt" For Input As #1
Do While Not EOF(1)
Input #1, strPhrase
Tout = Tout & strPhrase
Text1.Text = Tout
Close #1

ok it programmed preatty fast but anyway...

&"Can't Open Clipboard&" Error
I'm using following steps to display jpeg images in listview using VB6.0 :-

' Copy the image to a desired size
lLngReturnValue = CopyImage(LoadPicture(lStrJpegFileName).handle, IMAGE_BITMAP, 112.5, 150, LR_COPYRETURNORG)

' Open the clipboard
OpenClipboard frmSource.hwnd

' Clear the clipboard

' Assign the copied image to the clipboard
SetClipboardData CF_BITMAP, lLngReturnValue

' Close the clipboard

' Add the clipboard data to the imagelist
imgList.ListImages.Add , lStrJpegFileName, Clipboard.GetData()

On execution of this statements sometimes it shows runtime error "Can't open clipboard" err number 521. The error is not consistent.

What is the solution for this error? or is there any other way to display icon views of jpeg files in listview without using clipboard?



&"Can't Open Clipboard&" Error
I got this error when i try to paste from the clipboard (with VB).... How can i solve it ?

Error:&"File Already Open&"
I do close the file when I terminate execution but when I execute the program I got an error msg says that the file is already open.
What's wrong?

Any help would be greatly appreciated!


Public Sub OpenNewFile()

Open mstrFilepath For Random As #mintFileNumber Len = Len (mudtEmployee)

End Sub


Private Sub Class_Terminate()

Close #mintFileNumber

End Sub

&"Type Mismatch&"/&"Invalid Qualifier&" Error
Hi all

Am just using VB6 for the first time. Am connecting to a SQL Server 2000 database. What i am trying to do is simple select a single cell from the database into a string variable and then hold onto that variable for as long as i need it. The problem is that when i go to put the value into the variable i get a "Type Mismatch" error or an "Invalid Qualifier" error

The global variable that i am using:
Dim conn as new ADODB.Connection
Dim cmd as new ADODB.Command
Dim tempString as String

The connection string that i am using is: "UID=;pwd=;Database=Marts;" & _
"Server=localhost;Driver={SQL Server};

The statement that i am executing is:
cmd.ActiveConnection = conn
cmd.commandType = adCmdText
cmd.commandText = "Select ColumnA from TableA where ColumnB = 'ABC'"
tempString = cmd.Execute

Vista Error: &"program Is Not Working&" And App &"has Run Out Of Time&"
Client is running my vb6 app on Vista (in XP compatibility mode), and is getting an error that indicates the app "has run out of time and shuts the program down" (her words). This happens in a very specific section of the pgm that no xp machines report errors in.

Separately, on (attempted) startup, she gets the message that the app "has stopped working, where Windows will close the program and notify me later if a solution is available." But the solution is "as easy as allowing the program to close then re-opening it back up"


Is There VB &"debug&" Or Something That Will List All Required External References???
Let me start by saying that I am a relative VB novice and am not the most efficient or structured programmer around or I would not have this problem. Anyway, I have a very large project which uses numerous references and components. Over time, I’ve had a tendency to add some of these references/components in order to see if it was needed for my application. For example, the DBGRID ocx file needs to be added to your project before you can use the DBGRID control. Even though a particular reference or component may not have been needed for a specific problem I may have been having while coding, I may have inadvertently left the reference/component turned on. Now, when it comes time to distribute my project to other platforms, I’d rather not have to port a whole bunch of unnecessary ref/com files. The only way I know how to check to see if one of these files is actually necessary is successively remove each of these ref/com and rerun the code. I would rather not have to this since it will take forever to check that everything in the entire application is still functioning properly. Is there any “debugging” capability in VB that would list all the external references that are necessary for the entire code??? Thanks very much in advance.

Method &"SaveAs&" Or &"Save&" Of Object &"Excel.Workbook&" Does Not Work.
Hi people.
I did for a long time a program that uses excel automation, so that from a template will create a final file with some data pulled from the database (with ADO). At the end and when the Excel file is ready to be saved I got in a couple of computers some problems. In the whole LAN have XP, but in these 2 computers we have SP2. I have checked the rights and are OK (I have even tried to save the Workbook under the Temp folder and also the same problem).
Working with Office 2003 (SP1).
I have searched in internet about any bugs but I don´t find anything.
Any ideas.
Thanks for your time

Debug &"query Already Exists&" Problem
Help anyone.
I'm modifying an Access 2000 db. I copied a form that was close to the desired result, then modified it. I've edited the code to account for the appropriate forms/queries/docs, etc. But when I run the command, I get a "run-time error 3012" "query already exists". I can't seem to put my finger on what I'm missing.

In debug, here's the focus line for the run-time error:

Set qdf=dbs.CreateQueryDef(strQryName,strSQL)

Mind you this line is in the other event procedures for the other forms that use the same code with doc name modifications.

Thanks for any and all help.

&"Lost&" Events During Debug Break
Hi gurus,

I'm new to VB and I'd be grateful if anyone gave a solution to the following problem:
I have a COM object firing events to a VB exe. If i set a breakpoint in the event handler, the events fired during debug break get lost. Is there any way to design COM object so events aren't missed?


CommonDialog &"Save&" Instead Of &"Open&"
Can you tell me how to change the "Open" button to a "Save" button in a CommonDialog box... and how to add another button...s uch as the "Help" button that VB "Save Project As" has???



&"Run-Time Error '28':&" &"Out Of Stack Space&"
Ok, I know the cause of this issue is one sub calling another, repeaditly. It runs about 3400 loops before crashing, but is not infinite. I was wondering if anyone knew a way to clear the stack during it's run.

How To Replace &"Apple&" With &"Banana&" In A String That Contains &"Orange&" In A TXT File
Whoa! Long thread title. Basically, how can I search for any string in a text file that contains "Orange", then replace "Apple" with "Banana" in that same string? Is this difficult? Thanks!

Data1.RecordSource = &"select * From Salary Where &#22995;&#21517; Like &" + S + &" &" * &"&"
Data1.RecordSource = "select * from salary where 姓名 like " + s + " " * ""
thanks in advance gentlemen and ladies..
firstly...I don't know what must add "++" between "s " variant..
who can tell me why?? thanks , ,, I really don't know why it does this..
maybe i am a beginner..please forgive me why add ++ between s..thanks

How To Change Boolean Field From Displaying &"0&" And &"-1&" To &"Yes&" And &"No&"
Hey there,

I have a data report, which displays a few fields from an Access table, one which is a boolean. At the moment if the boolean value is True, then on the data report it displays "-1", and if False "0".

How can I change this so it displays "Yes" if true and "No" if False?

Would be really grateful for any help.

Access 2000 Form Does Not Open In Access 2002 Giving Error &"out Of Stack Space&"
Hi All,
I have seen the other posts related to stack errors but Iam unable to solve my problem. I have access 2k sql 2k project. All the forms work fine on my computer. When I install the project in access 2002, one of the forms does not open and access crashes. The first time it opened the form and after sometime gave error "out of stack space"
In the event viewer - application log reports "faulting application msaccess.exe,version 10.0.2627.1,faulting module msado15.dll,version 2.60.6526.0,fault address 0x.."
Please help.

(Urgent) Debug &"Expected 1&"
Please explain y this error occurs
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/web/Create_Acc_from_xls/fromaccess2xls.asp, line 23

VB Code:
<%Dim sTableDim sDSNDim sFields sDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../../database/database.mdb") 'Name of your DSNsFields = "Username,email,expirydate" 'List of fields comma delimitedsTable = "UserID" 'Name of your table or View Set DB = Server.CreateObject("ADODB.Connection")Set RS = Server.CreateObject("ADODB.Recordset") DB.Open sDSN [b]RS.Open "select "& sFields &" from "& sTable,DB[/b] Response.ContentType = "application/csv"Response.AddHeader "Content-Disposition", "filename=mydata.csv;"' lets print the fields on top  for i = 0 to RS.Fields.Count-1if i = (RS.Fields.Count - 1) thenResponse.Write lcase(RS.Fields(i).Name)elseResponse.Write lcase(RS.Fields(i).Name) & ","end if next Response.write vbNewLineResponse.write vbNewLine  while not RS.EOF for u=0 to RS.Fields.Count - 1if u = (RS.Fields.Count - 1) thenResponse.Write RS.Fields(u).ValueelseResponse.Write RS.Fields(u).Value & ","end if next response.write vbNewLine rs.MoveNextwend Response.write vbNewLineResponse.write vbNewLine Set RS = NothingSet DB = Nothing %>

Extract Local Names For &"OK&", &"Cancel&" And &"Apply&"

I noticed that some programs written in C++ have an English language, but the captions of the buttons "OK", "Cancel" and "Apply" are in German, Swedish or whatever localized Windows version the user utilizes. Any idea how to obtain the captions of those buttons in VB? The only method which comes into my mind is to get the locale ID and have an array with strings for the the various language versions, but I doubt that those programs do it in that way.


&lt;input Type=&"submit&" Name=&"op-savefile&" Value=&"Save&"&gt; - How To S
<input type="submit" name="op-savefile" value="Save"> - How can you submit this button through visual basic in a webbrowser?

Disabling &"wake Up&", &"sleep&" &amp; &"power&" Button
hello there, how to disable "wake up", "sleep" & "power" button with visual basic? thanks

Pleez, Read This!!! Matter Important! "Printing In "DOS Mode" Using "Shell" -not Happening, I Wonder

[I had to repost it since I have not received any replies for my earlier post]

I have a problem.

Following is the code :

Shell(" /c type " & App.path & "matrix.txt &gt;prn")

where App.path is C:XYZ

when the above line is executed, the contents of "matrix.txt" is not printed on the printer. Instead, control just passes on to the next line.

So, to find out why, I modified the line thus.

Shell(" /K")

The above command takes me to the "command prompt". Here, when I give the command "type c:xyzmatrix.txt &gt;prn", which is what the vbcode does, I get the message "file creation error".

So, I have identified the problem. Can anyone tell me why this "File creation error" occurs, And how to solve the problem?

Thanks for reading through.

"server Not Yet Been Opened" & "Object Variable Or With Block Variable Not Set" Error
I'm a new user of Crystal Report 8.5. I'm using VB6 and SQL Server 2000. I have designed a report at CR 8.5 and inserted it on VB 6, how will I connect?
I have tried a sample code below but I'm getting an "Object variable or with block variable not set" error. How do I solve this? Please Help. Thanks in advance Gurus

'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit

Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:durden mmiclossratioreport.r pt")
crTable.SetLogOnInfo "servername", "dbasename", "userid", "password"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Screen.MousePointer = vbDefault
End Sub

And when I'm using this code, I'm getting a "Server has not yet been opened" error.

'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit

Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:aris mmiclossratioreport.rpt ")
crReport.Database.Tables(1).SetLogOnInfo "mis002", "mqs", "aris", "110796"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Screen.MousePointer = vbDefault
End Sub


&"Error During Loading&",&"Out Of Memory&" :O(
I programmed my graduation project by visual basic and after 6 months of work ,suddenly the program didn't run

i got a massege saying "Errors during load .refer to 'D:......form1.log' for details" ,after clicking ok another message appears saying "out of memory" ,then nothing happened and the program didn't run.........
the program was working well, all what have been changed is that i installed a fresh copy of windows xp, then the problem happened........
does anyone can help ,my graduation project test is in the coming 3 weeks, i am in a very difficult attitude.............

REPLACE(variable,&"X&",&"Y&") Error
I've use this before with no problems now all of a sudden I have a problem.

alt1 = UCase(tbAlter.Text)
alt2 = REPLACE(alt, "Z", "S")

Compile error: Wrong number of arguments or invalid property assignment.

Do I need to add a component or reference?

Syntax Error In FROM Clause With "from Mds-nro" But Not With "from [mds-nro]"
one more thing for you to ponder:

when I type my sql statement in a text area on a form like this: "select * from mds-nro",
I get the following error:

Error -2147217900: Syntax error in FROM clause.

when I type my sql statement like this: "select * from [mds-nro]",
I get no error and I can see my o/put sitting pretty in the list box.

Why, I do not know!!!

Getting The File &"Type&" Descriptions (i.e., &"doc&" = &"Microsoft Word Docume
Hello there,
I am creating an Explorer-type Listview to display the files in a directory, and one piece of info I need to know how to obtain is the file "type" (i.e., "doc" = "Mircosoft Word Document", "xls" = "Microsoft Excel Worksheet", etc.). Is there an API, or does anyone have a technique to do this? Thanks.

Changing The &"title&" Of A VB Created Word Doc From &"Document1&" 2 &"BadgerBai
Ok, when I create a new word doc it automatically takes on the name "DocumentX", where X is a number greater than 1.
What I want to do is change this by using something like:

VB Code:
Dim objWoof As New Word.ApplicationDim objGrowl    As Word.Document    Set objGrowl = objWoof.Documents.Add    objGrowl.[What Property] = "Badger Baiters R Us"

Is this possible?

Oh, and b4 anyone mentions it, I do NOT want to save it, that is NOT an option...just getting that out the way now



Copyright © 2005-08, All rights reserved