Open And Close Txt File

Open A File, Close It, Open Next.
I've got my searching code going now, but I'm looking for a way to tell the program to load each file in a directory, one at a time, search, close it, move on to the next. And I have no clue how to do that. Any ideas?

Thanks in advance.


-Jer

---

Open A File, Close It, Open Next.
I've got my searching code going now, but I'm looking for a way to tell the program to load each file in a directory, one at a time, search, close it, move on to the next. And I have no clue how to do that. Any ideas?

Thanks in advance.


-Jer

---

Excel - On A Button Event, Open Another Closed File, Post Changes, Close File
Really new to VBA but coming along.

I hope that this hasn't been addressed already in this forum, I looked but didn't find it ...

The issue I can't resolve is this: I have a shared workbook with multiple sheets, essentially counting instances of answers from lists (lots of 'em) across all sheets. These are being summed in my 'summary' sheet (countif). Upon a button event (available on each sheet), I am posting from the summary to the summary2 sheet ... using the following:

Sub GetAns()
Sheets("Summary2").Select
Range("D5").Select
Selection.Offset(0, 0) = Application.Sum(Sheets("Summary").Range("D5").Value, Sheets("Summary2").Range("D5").Value)
Selection.Offset(1, 0) = Application.Sum(Sheets("Summary").Range("D6").Value, Sheets("Summary2").Range("D6").Value)
.+
.+

Long story, but I have Summary (current tally) and Summary2 (total tally)

The thought is this - this book is to be shared by 50+ users who will update it periodically yet constantly. What I would like to accomplish, essentially, would be to to have 'summary2' as an external closed book that accepts the posting from each save from the open books 'summary' sheet ... using vba (ActiveWorkbook.Save) in my GetAns sub ... basically 'on save, add this value to that value in that book' ... 'that' book will be a running tally of all users answers ...

Sorry, I hope this makes sense ... Can anyone help ?

---

When Use Automation To Open Word File, How To Know Whether The User Close The File?
I use following code to open Word file:

Dim objWD As Word.Application
Set objWD = CreateObject("Word.Application")
objWD.Visible = True
objWD.Documents.Open FileName, , True

Then use following code to close it:
objWD.Documents.Close
objWD.Quit
Set objWD = Nothing

But if the user has already closed the Word file after reading it, my closing code will produce an error "The remote server machine does not exist or unavailable". So my question is how to know the Word file closed or not? Thanks a lot.

---

Open Exe File, On Close Do...
A bit cryptic...

What i want is, to start a exe file (with shell command). If i close this same exe file ,the program (code) witch has started the exe must do something. How can i do this???

Carlito

---

File Open Close Problem
im kinda doing a loop here, jumping from sub to sub etc...

basically i want to be able to open the file for append if the status of the file is closed, if its closed it opens the file for appending otherwise leaves as is

but i keep getting file already open errors. it maybe obviously seen what it is but i cant find it! i tried every way possible to make it work but nope:


Code:
Open App.Path & " hemenus.txt" For Output As #10

For counter = 1 To CInt(menuentrynumbers)

ReDim Preserve themenuentryarray(0 To counter)

If menutxtopen = False Then

Open App.Path & " hemenus.txt" For Append As #10
menutxtopen = True

End If

opened = False
closebracket = False
subnumbermenuentryname = InputBox("Enter the NUMBER of SUB MENU items in the " & UCase(txtField(counter).Text) & " Menu Header", "Sub Menu Items", 0)

For numberofentrysubmenuname = 0 To subnumbermenuentryname - 1

submenuentryname = InputBox("Enter the Sub Menu Name number " & numberofentrysubmenuname + 1 & " for the menu title: " & UCase(txtField(counter).Text))

i = txtField.Count

a = i
Load txtField(i)
txtField(i).Visible = True
txtField(i).Enabled = False

txtField(i).Left = txtField(i).Left + txtField(i).Width

txtField(i).Text = txtField(counter).Text & submenuentryname
txtField(i).Left = txtField(0).Left + a * txtField(0).Width 'line function

txtmenustring = "the" + txtField(counter) + "Menu,"
themenuentryarray(counter) = txtmenustring

If printtofilestat = False Then
Print #10, txtmenustring
Close #10

menutxtopen = False
printtofilestat = True
End If

writeobj = menuobjectwrite(counter, i, counter, subnumbermenuentryname - 1, numberofentrysubmenuname)
doit = buildinnerclasses(i)

Print #1, ""

Next numberofentrysubmenuname

closebracket = True


If closebracket = True Then
onlyclosebracket (True)
closebracket = False
End If

printtofilestat = False
Next counter


any ideas?

wanna be able to open and close the file for appending successfully but want it to be closed before it executes another sub because it will need it for opening that file for input

thx

---

Open And Close An Excel File
guys i have a simple question. i will be comparing data from two excel files.
can you guys help me on how i can open and close excel files.
(like simply opening and closing text files, however i'm using
excel files)
thank you guys in advance. i really nedd your help.
Edit by herilane: I have removed your other thread. Please do not start duplicate threads for a question.

---

Open Then Close Executable File
I have to write a VB code that will:
A. open an executable file (a.exe)
B. let it run for awhile
C. close the file(a.exe)
D. repeat steps A to C 10 times.

I used shell() function to open and run the file. My problem now is, how do I close it.

Any suggestion would be appreciated.

---

Check To See If A File Is Open, If So Close It
Hi all, just a quick question...

I was wondering if anyone out there knows how to check if a file is open.

The reason I am asking this is because i have built a program that overides files now and then... but if the file is already open, it generates a message.

My desired result is something like this:

1: click a button
2: do a check to see if the file is open, if not overide, if yes then close the file and then overide.

If anyone has any ideas please let me know...

Thanks for your time and consideration....

Mojoinst

---

Close Open File[RESOLVED THANKS]
Hi i am using this code to populate a listview list it works fine
but i also have an other four text files i want to be able to
choose from in a combo box,i can clear the listview text but when i
select the new text file to open from the combo box list i get an
error saing file already open,i take it that i have to first close
the file that i had first opend?how would i do this?

----------------------------------------------------------------------------
--------VB CODE------

Open (App.Path & "123.txt") For Input As #1 'Open File
Do While Not EOF(1) 'While not end of file
Line Input #1, TextLine 'Read Line From File
Set ListView = ListView1.ListItems.Add() 'asign "object"
ListView.Text = Split(TextLine, ",")(0)
ListView.SubItems(1) = Split(TextLine, ",")(1)
ListView.SubItems(2) = Split(TextLine, ",")(2)
ListView.SubItems(3) = Split(TextLine, ",")(3)
ListView.SubItems(4) = Split(TextLine, ",")(4)
ListView.SubItems(5) = Split(TextLine, ",")(5)
ListView.SubItems(6) = Split(TextLine, ",")(6)
ListView.SubItems(7) = Split(TextLine, ",")(7)
ListView.SubItems(8) = Split(TextLine, ",")(8)
ListView.SubItems(9) = Split(TextLine, ",")(9)
ListView.SubItems(10) = Split(TextLine, ",")(10)
ListView.SubItems(11) = Split(TextLine, ",")(11)
ListView.SubItems(12) = Split(TextLine, ",")(12)
ListView.SubItems(13) = Split(TextLine, ",")(13)
ListView.SubItems(14) = Split(TextLine, ",")(14)
ListView.SubItems(15) = Split(TextLine, ",")(15)
ListView.SubItems(16) = Split(TextLine, ",")(16)
'ListView.SubItems(17) = Split(TextLine, ",")(17)


Loop

---

How To Use VB6 To Open/close And Excel File
i want to to know the command to open a particular excel file at a location (like normally a user will open excel program, then File - Open - "that excel file"). and also i want to close that excel file.

---

Shellexecute Open And Close Application File
Any body can help me solve this problem? In the coding as below i using shellexecute to open the apllication file tht is successed, but i can not close tht application file. Any body can help?


The source code in vb as below:

VB Code:
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 dim num as longdim path as stringdim file as stringpath="C:Temp_histories"file = "file.txt"num=ShellExecute(0, "Open", """" & path + file & """", vbNullString, vbNullString, 1)PostMessage num, WM_CLOSE, 0&, 0&1)

---

File/Open/Close Options At The Top Of My Application
can someone tell me how to place file,open,close options at the top of my application.  I am unsure as to which control/component will give me the ability to do this.

---

Close Any Open File Forcefully? Or Unlock It??
Close Open File Forcefully or Lock/Unlock the File???

At times, from P2P download clients, I may get some error if I try to delete the file. "Unable To Delete File. Please Make Sure all programs using this file are closed" something along those lines anyways. Is there a way to forcefully close this file? Because even after closing the download client and even running in safe mode, you still cant delete the file. The Only way to delete it is to boot up in command prompt mode and delete it in the DOS interface!!!!!. This gets EXTREMELY annoying!, especially with large file names. So is there a way to forcefully close the file?

Also, I have read some articles on Databases/Records. Do Download Clients Lock certain sections of the Data/Text? If so, is it possible to determine this locked data or how much of it is locked, and then unlock it?

All Replies are appreciated

Andrew

---

Open Close Event In Wboo For Txt File
i have distribute to many user a wbook.
In the event OPEN and CLOSE of workbook is present a sub my_macro and start when open or close the wbook.
This macro write and update data in a txt file in \myserverrmydirlog.txt.
now my prob is....
if all user open and close simultanious the wbook have a conflict?
Suggest me...
Is very important!
Tks.

---

Need Help To Open File Replace Text And Save/close
I need to open a file like a c:ob.txt replace all "dog" with "cat" and save and close the file.

---

Open Text File, Save And Close Again [SOLVED]
How can i open a text file so i can edit it and then save it again?

---

Whoops: Open File, Auto_open, Close 1st - Breaks VBA
OK, so as it stands I have 2 files; 1.xls and 2.xls.

file1 has a macro:

Sub One()
Workbooks.Open Filename:="c:/2.xls"
MsgBox "You'll never see this message "
End Sub

and file2 has this in its ThisWorkbook:

Private Sub Workbook_Open()
Workbooks("1.xls").Close savechanges:=False
MsgBox "You'll never see this message either"
End Sub


As far as I can tell, what's happening is file1's macro will not continue past the open command until file2's macro is finished. Closing File1 while it's macro hasn't finished causes VB to halt and reset the macros. I'm looking for any suggestions at all, I'm totally lost as for a fix. I was thinking perhaps there was a way to force file1's macro to complete before file 2's Workbook_open command runs, but I may be on the right track. All comments/suggestions/fixes (and bumps) appreciated.

---

How Can You Open A File, Arrange The Items In Alphabetical Order, And Close It?
anyone know?

---

Should I Have 100s Of Winsock Connections Open/close.. Or Keep Them Open (hard Q)?
Hello
Ive got a server to which many clients connect to.

They each are given a few tasks to complete - which may or may not take a long time to finish, and after each task is done they send back the result.

This has caused massive amounts of problems for me. Right now I keep the connections open all the time. My server listens on one particular winsock control on a particular port to which all clients connect. It then accepts the connection request thru a second array of winsocks, so each client is connected to the server via the array via one connection.

There is generally no problem sending out the tasks thru that single connection/client - but receiving is a problem. The client may need to send back a few hundred kb at a time but since it was completing several tasks at once - it is not always received correctly. My guess is because taskA is sending data thru the connection at the same time as taskB - and the data isnt received right (each task sends its data via a <start> and an <end> string so I know where the start/end of data is and when transmission is over). Its important to note that the tasks are multithreaded (via a 3rd party control)

The data is sent in one line per task. winsock.SendData theResult. But many tasks can complete at around the same time. I thought that VB would wait until the data was completely sent (for one lines code) before moving on... but I dont think this is happening. I even tried adding a DoEvents but to no avail - I still cant receive the data properly. Maybe winsock is 'skipping over' some data - I dont know. (Kinda like when if you 'break' the application winsock does not get incoming data and when you resume it still wont pick it up)

So Ive got 2 options..
1) Somehow figure out how to receive data properly when multiple tasks finish on a client at around the same time and they send data at the same time - basically making the program send the data of a task and not continue until the data has been sent, then send another tasks data.

2) Use many connections. Basically the max # of tasks running at once will be about 10. So the idea is to have another winsock array of 10, each dedicated to one task, and when a task is completed - connect thru the winsock array, send the data, and when the server receives it - it disconnects.

3) A mixture of 1 and 2 - have the 10 winsocks connect to the server and be open at the same time, then I can just send data and receive via a specific winsock array control and there is no problem distinguishing taskA from taskB from taskC on a client, or client from client.

But honestly.. I dont know if its 'bad' to have lots of connections open and close all the time. And I dont know if its 'bad' to have thousands of connections open at the same time either..

What do you guys think?

---

Open An Excel Worksheet, Close It, Perform Cleanup And Open It Again - Can't Do It
The attached code allows the user to browse for an excel file, open it, and then the code automatically closes it and performs cleanup on the excel objects. I seems to work fine the first time the user opens an excel file, but if the user tries to open an excel file a second time, there is an error. Why is this?

---

Open File In Wordpad, Save It, And Then Close Wordpad
I know I can open a file in wordpad using:
shell wordpad C:DynadirectAmazondblinv.txt

but how do I go about saving it as a different filename and then closing wordpad - anyone know?

---

Close Then Re-open App
I am trying to find a solution that will close and then re-open a vb app if it is idle for more than 30 mins
The reason is because I was told that vb apps don't release memory so I want to sort of "auto release or refresh the memory" any ideas?

---

Open Close
When i user this code to open a file:

Code:
Open FName For Input As #1
Input #1, Data
Close #1
Edit1.Text = Data
It opens the first line or up to the next ','. What is the correct method for opening a file?

---

Open/close Cd-rom
how do you open/close the cd-rom in vb5?

---

Close An Open Exe From A Different Exe
How do I close an open Exe from another Exe?
Once I close this Exe I want to delete this Exe from another Exe, Please let me know as to how can I do this?

---

How Do You Close An Open App?
If I want to close something with code, and I know its running, like ms word or something, how would I go about doing that?

---

Open/Close Cd Rom
hey..how can i open and close the cdrom using a command button?

---

Close And Open Again ...
how i can close my program and open it again ...

---

On Close Open App
how do i do something like on close of application or on error open "shell code here"

---

How To Open/close CD-ROM?
Hi

Does anybody know how to open/close CD-ROM?

I'm really a amatuer so..............

Thnx!

Netherlands

---

Close Exe That's Open?
I need to close an Exe that's already running. I know the window title, and the name of the exe. Thanks for any help!

---

If Open Then How To Close
In my code I'm creating a log file of some of the events I'm trying to track. Every now and then when the program checks to see if the log file exists it flags that its open then immediately exist the sub. Meanwhile it missed an entry. The error I receive tells me that the log file is open when checking for the existance.

What am I missing:


Code:

'declaration
Public strChecker As String

'create migration logs
Public Sub LogName()

Dim strLog As String
Dim Location As String


Location = App.Path & ""
strLog = Location & strLogName & ".log"

strChecker = strLog
FileExists
If intTest <> 0 Then
Open strLog For Append As #1
Else
Open strLog For Output As #1
End If

'the information for the log goes below

end sub

''if intTest=0, then there is no file to replace. Anything else means it exists.
Public Sub FileExists()

intTest = Not (Dir(strChecker) = "")
strChecker = ""

End Sub




If the log file was left open for some reason intTest returns a -1 indicating the fileexists, thats good, but when it returns to the if then above and tries to append the file it jumps out.

Is there a way to check to see if "c:crap.log" is open before appending then close it.

TIA,

---

Close All IEs Open
Anyone have a code to closes all instances of IE open,not just the active one?

Thanks

---

CD Open And Close
does anyone know how you can open and close the cd-rom drive with visual basic?

---

? On Open / Close Files In VB
Hi,
I have a text file (see below) that I only care for "Port x/xx" at the end of each line. This is the output of a Cisco switch from issuing the "show logging buffer 1023" command and the output is being captured to a text file.
What is the best way to remove all the duplicated "Port x/xx" on each line?
Based on my limited VB experience, I can only think of opening 2 files within VB. 1) being input and the other being output. Read the text file one line at a time and using a string command to keep only "Port x/xx" and write that info into a second file. In the end, I will have the second file that contains all the "Port x/xx" with no similar entries.
I notice using open/close files in VB is time consuming imagine there are 25 of such logs I have to go through. Are there different or quicker methods to get this done?

Thanks in Advance,

Log file starts here
==============
2004 Mar 09 09:34:05 %PAGP-5-PORTTOSTP:Port 3/14 joined bridge port 3/14
2004 Mar 09 09:34:25 %PAGP-5-PORTFROMSTP:Port 3/14 left bridge port 3/14
2004 Mar 09 09:34:33 %PAGP-5-PORTTOSTP:Port 3/14 joined bridge port 3/14
2004 Mar 09 10:02:38 %CDP-4-DUPLEXMISMATCH:Full/half duplex mismatch detected on port 3/11
2004 Mar 09 10:03:46 %PAGP-5-PORTTOSTP:Port 2/28 joined bridge port 2/28
2004 Mar 09 10:32:46 %PAGP-5-PORTFROMSTP:Port 3/22 left bridge port 3/22
2004 Mar 09 10:32:54 %PAGP-5-PORTTOSTP:Port 3/22 joined bridge port 3/22
2004 Mar 09 10:34:38 %CDP-4-DUPLEXMISMATCH:Full/half duplex mismatch detected on port 3/11
2004 Mar 09 10:37:50 %PAGP-5-PORTFROMSTP:Port 3/22 left bridge port 3/22
2004 Mar 09 10:37:59 %PAGP-5-PORTTOSTP:Port 3/22 joined bridge port 3/22
2004 Mar 09 10:42:10 %PAGP-5-PORTFROMSTP:Port 3/22 left bridge port 3/22
2004 Mar 09 10:42:18 %PAGP-5-PORTTOSTP:Port 3/22 joined bridge port 3/22
2004 Mar 09 11:06:38 %CDP-4-DUPLEXMISMATCH:Full/half duplex mismatch detected on port 3/11
2004 Mar 09 11:23:33 %PAGP-5-PORTFROMSTP:Port 3/32 left bridge port 3/32
2004 Mar 09 11:24:04 %PAGP-5-PORTTOSTP:Port 3/32 joined bridge port 3/32
2004 Mar 09 11:24:44 %PAGP-5-PORTFROMSTP:Port 3/32 left bridge port 3/32
2004 Mar 09 11:25:18 %PAGP-5-PORTTOSTP:Port 3/32 joined bridge port 3/32
2004 Mar 09 11:26:28 %PAGP-5-PORTFROMSTP:Port 3/32 left bridge port 3/32
2004 Mar 09 11:26:34 %PAGP-5-PORTTOSTP:Port 3/32 joined bridge port 3/32
2004 Mar 09 11:38:38 %CDP-4-DUPLEXMISMATCH:Full/half duplex mismatch detected on port 3/11
2004 Mar 09 12:10:38 %CDP-4-DUPLEXMISMATCH:Full/half duplex mismatch detected on port 3/11
2004 Mar 09 12:42:38 %CDP-4-DUPLEXMISMATCH:Full/half duplex mismatch detected on port 3/11
Log file ends here
==============

---

Open/Close Program
I'm trying to write a program that will be able to open a file, apply values from the file in an array, close that file. If I try to open another file and apply a different number of values to the same array (even if I redimension it first), I get a 'Subscript out of range' error.

I think the best way around this error is if I can simply restart the program.
Is there a way to run a separate vb program that will close the current program, and re-open it?

---

Open And Close Access
Sounds simple enough, but I'm not quite sure where to start. I used the tutorial for opening and closing Excel, but it looks like the commands are different and after a lot of searching, I still cannot find a code example of how to open and close Access from VB. If someone could share a code snippet, I'd really appreciate it!

---

Close Open Folder
I am using a shell command to open a folder. How can I close it afterwards?

---

If Recordset Open, Close
VBA for Access 2002:

What's the best way to do this? The two examples below produce Object Variable ir Wirh Block not set, or Runtime 91 errors

' if recordset is open, close
If rs.State = 1 Then rs.Close
If rs.State And adStateOpen Then rs.Close

Thanks in advance for the help...

---

How To Close.. Open Program
I use the shell program to open my internet explorer.... Now I want to close it by clicking a button on my program... How can I do this.. does any one could give me a code.. thanks

---

Open And Close With 1 Button :(
hello ppl, i'm new to vb and i have a problem...

i have 2 forms.

the 1st with a button called 'show wage details'

the 2nd form which has no buttons (no buttons needed).

now my problem...

i want to use the 'show wage details' button, so th@ when its pressed, the 2nd form will show, the caption will change from 'show .....' to 'hide ......' and then if th@ button is now pressed after the caption change, it will hide the 2nd form and re-display 'show .....' again.

i can change the caption and show the 2nd form, but i cant get my button 2 function as a hide form or get the caption to change.

plz if ne1 can help me, i'd be very greatful

thanx for the help

---

Do Not Close App If FORMS Are Open
Is there a way of stopping an application from closing if other forms are still loaded. So before they can close the app they must close the other forms.

I know you can do if form.visible then cancel = true

but is there a general thing where it knows whether other forms are visible or not.

Thanks

---

Open And Wait To Close
Hi, How I can open a file using the Filename, and wait to be closed, it means, stops the code execution.

Thanks !!

---

How To Close All Open Files...
I open a file to write to it, but sometimes it will come back and say file already open. How can I make sure that all the files in my application are closed?

---

Open/Close, Write/Put...
I have a server/client program that I have been working on. The client opens up and ftp's its ip to a secure site. The server starts up and downloads all the ip's from the ftp site.

The purpose of this is to be able to help friends with their pc's AND as a way to kind of set up a server for a game I have been working on for me and a few friends. This would allow for easier connections and help me avoid having to send ip's over email before each session.
It then pings and lists all available ip's. I request a connection and I am accepted. I request a directory listing and receive it.

I need to be able to download files from the other computer. I have been succesful with .txt files but NOT with .jpg and other formats. Here is what I was using.

The client does this:

Dim i As Integer
Dim sTxt As String
i = FreeFile
Open strFileToSend For Binary As #i
Do Until EOF(i)
DoEvents
Line Input #i, sTxt
buff = buff & sTxt & vbCrLf
Loop
Close #i
wsClient.SendData "FILE" & strFileToSend & "," & buff


The server does this:

Open sFile For Binary As #1
Put #1, , strFileData
Close #1


I have never worked with winsock much and admit I don't really understand what opening as binary does.... is there anything obvious to you that I am not seeing.

Basically I need to be able to request and receive files from other pc. Thanks for ANY help you can offer. This is currently the only thing holding my project up. Thanks.

---

New - Close Open *DELETED*
Post deleted by UseTheMan

---

Help Me Close Open Programs
In my program i want to "see" the path of all programs and close certain one
s, depending on the users settings. How do i find the paths of OPEN programs
and then terminate them?

---

How I Close All Form That Open Under Mdi?
i want to close every form that open under MDI how code it

---