Loading JUST Text Files Into A ListView
Hi, I want to have a ListView control list JUST the text files in a folder that I precode into it. Also, I'd like to use the offical text file Icon for it if possible.
Any suggestions?
Thanks,
Jordan
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Loading Folders/files In Listview Is Slow ???
Hi,
I am writing a Backup Application using VB6. Here I need to show treeview and listivew with Directories and Files like Windows explorer and allow user to select or drag files for backup. I have populated directory tree. that is fine. But in case of listview for showing selected Directory contents with windows icons I am using Filesystemobject and then getting windows icons for the files and directories. In case of large directory it is taking time to load the files and directories. I treid with Findfirstfile and findnextfile apis also. still it is slow. Can anybody suggest me some good way of loading the files and folders in the listview with windows associated icons?
thanking you
regards
praveenp
Loading Folders And Files In Listview Is Slow ???
Hi,
I am writing a Backup Application using VB6. Here I need to show treeview and listivew with Directories and Files like Windows explorer and allow user to select or drag files for backup. I have populated directory tree. that is fine. But in case of listview for showing selected Directory contents with windows icons I am using Filesystemobject and then getting windows icons for the files and directories. In case of large directory it is taking time to load the files and directories. I treid with Findfirstfile and findnextfile apis also. still it is slow. Can anybody suggest me some good way of loading the files and folders in the listview with windows associated icons?
thanking you
regards
praveenp
Loading Files/folders In Listview Is Slow ???
Hi,
I am writing a Backup Application using VB6. Here I need to show treeview and listivew with Directories and Files like Windows explorer and allow user to select or drag files for backup. I have populated directory tree. that is fine. But in case of listview for showing selected Directory contents with windows icons I am using Filesystemobject and then getting windows icons for the files and directories. In case of large directory it is taking time to load the files and directories. I treid with Findfirstfile and findnextfile apis also. still it is slow. Can anybody suggest me some good way of loading the files and folders in the listview with windows associated icons?
thanking you
regards
praveenp
Loading Only Text Files
How do you make it so that when the player opens a Common Dialog box to load a file, only text files show up? Can I set a filetype?
Yours
Nuts of Steel
Loading Files Other Than Text
Hi, I was wondering how I would load files other than text with command dialog. I can load text but don't know how to load anything else. I want to know how I can load music. Thanks.
Loading Text Files
I have a form with a large text box in the middle.
How would I get a text file called help to load into the text box when the form loads?
Loading Text Files To ComboBox
Okay, I'm back again with another question. How could I load a text file to a ComboBox when a form loads? How could I refresh or 'reload' a text file into the ComboBox when lets say I click a button. I already know how to write to a text file, I just need to know how to load a text file into a ComboBox now.
Thanks in advance
Loading Text Files From Directory
Anyone have any idea(or lead me into the right direction) on how to load every text file in a directory just by the fact that its *.txt?
Loading And Writing Text Files To The Web Via FTP.....
IF this makes sense
VB Code:
Option Explicit Private m_ftpSite As StringPrivate m_userName As StringPrivate m_password As StringPrivate m_ip As String Public Sub CheckIfConnected()Call GetConstanceIf InternetGetConnectedState(0, 0) Then If CheckIp() <> GetIp() Then Call FTPindexhtml DoEvents DoEvents DoEvents Call FTPindexhtml DoEvents DoEvents DoEvents Call SetIp End If Else '****ty off line .. never really good to be off lineEnd IfEnd Sub Public Sub FTPindexhtml()ServiceMain.Inet1.URL = m_ftpSiteServiceMain.Inet1.UserName = m_userNameServiceMain.Inet1.Password = m_passwordServiceMain.Inet1.Protocol = icFTP'Inet1.Execute , "put " & App.Path & "index.html /index.html"ServiceMain.Inet1.Execute , "put " & "c:index.html /index.html" Do While ServiceMain.Inet1.StillExecuting DoEvents Loop End Sub Public Sub GetConstance()'Open App.Path & "ftp.txt" For Input As #1 ' Open file for input.Open "c:" & "ftp.txt" For Input As #1 ' Open file for input. Do While Not EOF(1) Input #1, m_ftpSite, m_userName, m_password, m_ip LoopClose #1End Sub
REMEMBER...I JUST CUT THAT OUT OF A PROGRAM I AM WORKING ON
Seahag
Help With Loading Plain Text Files Into An App
Hey everyone...
I am on my second day of learning VB, so forgive me if this is a novice question, but I can't find a solution anywhere on the site.
I have an app, a command button triggers a CommandDialog Box that opens a file selection box. I am trying to create a textbox that will load this file into the application (plain text SGML files) so the user can touch up the file before processing further.
can anyone tell me how to do this?
Thanks!!
-Jason
Writing To And Loading From Text Files......GRRRRRRRR
Ok...I have to now do a High Score function for a game that has a variable array.
Here is my attempt at the psuedo code:
If lblScore.Caption > Any of the high scores Then
Replace score with new score and player's name.
picScores.Print "The highscores 1 under each other"
I hope that made some kind of sense.....but here are the specs:
The player's name and score will be on the form.
The player's name will be located in lblName.Caption
The player's score will be located in lblScore.Capton
I have to display it in a Picture Box. - picScores
I need to load and save high scores from a txt file (Scores.txt) into a picture box.
I need a variable array.
I only want the top ten scores.
If the player's score is greater than one of the top ten scores, I want it to be replaced.
I have to use the App.Path & "" thing as well.
Now, I understand that I have to do some kind of sort (bubble, shell etc) to sort out the players score in comparison to the high scores and see if it is a top ten score, and then replace it.
I understand the principle of it, but my coding just doesnt work at all...and I would greatly appreciate any help.
And could you please post the coding for it.
Loading Large Text Files Into My Program
Hi, i need help here, it seems that my program just stops loading the large text file into my project can any one help me?
here is the code:
Code:
Private Sub Command3_Click()
Open Text1.Text For Input As #1
Line Input #1, strFileLine
Text3.Text = Text3.Text + Mid(strFileLine, 1, 6) + " - " + Mid(strFileLine, 8, Len(strFileLine) - 7) + vbCrLf
Text4.Text = Text4.Text + Mid(strFileLine, 8, Len(strFileLine) - 7) + vbCrLf
Do Until (EOF(1))
Line Input #1, strFileLine
Text3.Text = Text3.Text + Mid(strFileLine, 1, 6) + " - " + Mid(strFileLine, 8, Len(strFileLine) - 7) + vbCrLf
Text4.Text = Text4.Text + Mid(strFileLine, 8, Len(strFileLine) - 7) + vbCrLf
Loop
Close
Dim nfile As Integer
nfile = FreeFile
Open Text2.Text For Output As #nfile
Print #nfile, Text3.Text
Close #nfile
Dim nfile1 As Integer
nfile = FreeFile
Open Text5.Text For Output As #nfile
Print #nfile, Text4.Text
Close #nfile
End Sub
Loading Names Of Files Into A Data Base Or Text File
I need to put to gether a program for mangeing data at work. I need to know how to look in a directory and load the names of the files in it to either text file or preferbly a data base file. I need the code and explicet instructions on how to use the code(I'm still trying to get used to VB)
Merge Or Sync 2 Text Files In Listview
ok here's another one. I have two liistviews, one named "SingerDataView1" and the other called "MergeListView" both with 3 headers colums, now I also have a button that when i press i want it to take whatever data is on the "MergeListView" and add it to "SingerDataView1" without adding duplicate data.
the data that are shown in the ListViews comes from text files that I load like so...
--------------------------------------------------------------------
LoadTabDB MergeFile.Path & "" & MergeFile.FileName
For Z = 1 To GlobalDBCount
If GlobalDB1(Z) > "" Then
MergeListView.ListItems.Add MergeListView.ListItems.Count + 1, , GlobalDB1(Z)
MergeListView.ListItems(MergeListView.ListItems.Count).SubItems(1) = GlobalDB2(Z)
MergeListView.ListItems(MergeListView.ListItems.Count).SubItems(2) = GlobalDB3(Z)
MergeListView.ListItems(MergeListView.ListItems.Count).SubItems(3) = GlobalDB4(Z)
---------------------------------------------------------------------
see they have subitems and that's whats making hard on me. please help me out here, thank you
Loading TXT Into Listview
Hiya,
I'm creating a small database program... while doing some searching on thif forum I found this code:
Code:
Private Sub Cmdsave_Click()
Dim Cols As Integer
Dim Rows As Integer
Dim itemX As ListItem
Dim Str As String
Open "abc.txt" For Output As #1
'******If you want to print the headers do this:*****
For Cols = 1 To ListView1.ColumnHeaders.Count
Str = Str & ListView1.ColumnHeaders(Cols).Text & vbTab
Next Cols
Print #1, Str
'*****************************************************
For Rows = 1 To ListView1.ListItems.Count
Set itemX = ListView1.ListItems(Rows)
Str = itemX.Text
For Cols = 1 To (ListView1.ColumnHeaders.Count - 1)
Str = Str & vbTab & itemX.SubItems(Cols)
Next Cols
Print #1, Str
Next Rows
Close #1
End Sub
it works fine... but now I need to load the abc.txt backinto the listview (Listview1)
Is it possible to load these? or can I only load Access databases into a listview?
Tnx in advance
Loading Listview
I have a form with a textbox and listview control on it.
My problem is, when I load the listview and I type any text
in the textbox, the selected item is way down the bottom of the listview.
I would like when the user types, the selected text is at the top,
or when the user types and presses the enter key, the listview is loaded & sorted by the text in the textbox.
How do I do that?
While Loading To Listview .....Please Help
I have a huge a mount of data and I need to display them on a listview but the form hanGs while doing So ..
So what can I do To remove this hanging .
If is it because of the progressbar can someone addit to the project and upload it here.... please help me
See the Attachment
ListView Loading
Can anyone help me Improve the performance of the standard MS ListView Control.
I have an application which requires a sorted iconised/report view of data which can sometimes be several thousand items. Althougth the ListView copes with this amount of data once loaded each row takes longer and longer to be added (this is especially noticable once a few thousand items are bulk loaded.
I have tried turning off sorting until loaded and LockWindowUpdate until loaded, but I cannot improve the poor performance (the data has already been loaded into a treeview and is being added to the list in a similar fashion to Explorer).
Loading ListView Question
I load twelve ListView arrays from a database table. The ListView controls have Checkbox enabled. Names are added to the ListViews List from the table. If ...MyRecSet.Fields("CPerson") > ""... is true in the table this Person's ...Form1.Janlv(MyRecSet.Fields("DBox")).ListItems(c).Text = MyRecSet.Fields("EName") ... checkbox will be checked. My Listviews are, Janlv(), Feblv(), ..., Declv(). After loading all of the names in the Listview arrays I then move through the arrays and check the appropiate checkboxes. I'm trying to figure out how to do this without having a block of code for each array. Could some one help me out in combinding all of the Listviews into this one block of code. Here is my code for the Janlv(). Thanks
Code:
Set oConn = New ADODB.Connection
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "PTOTraclerdb.mdb"
Set MyRecSet = oConn.Execute("Select * From JanTable")
If Not MyRecSet.EOF Then
MyRecSet.MoveFirst
Do While Not MyRecSet.EOF
If MyRecSet.Fields("MonthName") = "Jan" And Form1.txtYear.Text = MyRecSet.Fields("CYear") Then
If MyRecSet.Fields("CPerson") > "" Then
For c = 1 To Form1.Janlv(MyRecSet.Fields("DBox")).ListItems.Count '- 1
If Form1.Janlv(MyRecSet.Fields("DBox")).ListItems(c).Text = MyRecSet.Fields("EName") Then
z = Form1.Janlv(MyRecSet.Fields("DBox")).ListItems(c).Index
Form1.Janlv(MyRecSet.Fields("DBox")).ListItems(z).Checked = True
End If
Next c
End If
End If
MyRecSet.MoveNext
Loop
End If
oConn.Close
Set oConn = Nothing
Listview Saving/loading
I need to save the data in both columns and then load it!
This project is so huge that now i am so drained i can't figure out how to do this
The other catch is i need to save it like so...
Code:
sitename;url
sitename;url
Or a better way if anyone knows of one The url is in the second column, the sitename is in the first. I think i have the saving sort of down just need to continue trying
Thanks Paul.
<Edit>
Sorry there are some more catches if it helps at all, i need to check if the url is already in the text file, and if it is then skip that row.
Code:
Open App.Path & "Sites.txt" For Input As #filenum
strbuffer = Input(filesize, #filenum)
Close #FileNumber
Something like that then just check if strbuffer contains the url, that would be good enough right?
Loading A Database To A Listview?
Hey guys I have a database that I have been loading to a listbox, but I would like to add another column to the database, and I don;t think a listbox would allow more than one list of items.
I was wondering I have a listview called lvwitems and it has 3 columns. but I am also unfamalier with listviews and databases. What I would like is that when the database loads one item into a listview column, it loads stuff from the other columns into the coresponding columns into a listview.
Like for eX, if a database has like
Notepad.exe, name of the program "Notepad", then a brief description of the file
This is in 3 different columns in my database but are all in the same row.
can this be done, where if notepad.exe gets loaded into a listview, the rest is the corresponding row in the database gets loaded into a listivew?
I use this code to load to a listbox.
VB Code:
Public Sub FillCombo(objComboBox As ListBox, _ oConn As ADODB.Connection, _ strSQL As String, _ strFieldToShow As String, _ Optional strFieldForItemData As String) Dim oRS As ADODB.Recordset 'Load the data Set oRS = New ADODB.Recordset oRS.Open strSQL, oConn, adOpenForwardOnly, adLockReadOnly, adCmdText With objComboBox 'Fill the combo box .Clear If strFieldForItemData = "" Then Do While Not oRS.EOF '(without ItemData) .AddItem oRS.Fields(strFieldToShow).Value oRS.MoveNext Loop Else Do While Not oRS.EOF '(with ItemData) .AddItem oRS.Fields(strFieldToShow).Value .ItemData(.NewIndex) = oRS.Fields(strFieldForItemData).Value oRS.MoveNext Loop End If End With oRS.Close 'Tidy up Set oRS = Nothing End Sub Private Sub Form_Load()'Dim con As ADODB.ConnectionDim con As ADODB.ConnectionDim strSQL As StringDim strCol As StringSet con = New ADODB.Connectioncon.CursorLocation = adUseClientcon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= C:Documents and SettingsOwnerDesktopDatabaseMain1.mdb;"strSQL = "SELECT * FROM table1"strCol = "field1"Call FillCombo(list1, con, strSQL, strCol)con.CloseSet con = NothingEnd Sub
Thanks1
Loading A Textfile In ListView
the listview doesn't populate when i load a file... I'm not getting an error or anything. everything is in 1 column no multiples or anything advanced
VB Code:
Dim FileName, iFile As String On Error GoTo DoNothing CmDg1.CancelError = True CmDg1.DialogTitle = "Names List" CmDg1.InitDir = App.Path CmDg1.Flags = &H4 CmDg1.Filter = "all files (*.*)|*.*|names file (*.txt)|*.txt" CmDg1.ShowOpen FileName = CmDg1.FileName Open FileName For Input As #1 While Not EOF(1) Input #1, iFileListView1.ListItems.Add iFile Wend Close #1 DoNothing:
Loading Into Listview..can't Figure It Out
Hi all! VB-Noob here.
I made an Agenda for a schoolproject. I'm almost done but i've one problem... Reading a Listview from a file...
I know there are numerous threads about this, but i just can't figure it out.
I got the Write code from VBForums too, here it is:
Code:
'First create a file
Open "c:VBAdressenboek.txt" For Output As #1
'The Actual Saving
For i = 1 To ListView1.ListItems.Count
Print #1, ListView1.ListItems(i).Text & "|";
Print #1, ListView1.ListItems(i).ListSubItems(1).Text & "|";
Print #1, ListView1.ListItems(i).ListSubItems(2).Text & "|";
Print #1, ListView1.ListItems(i).ListSubItems(3).Text
Next i
Close #1
The saving works, so | is the seperator. Can anybode help with the reading code??
Thanx in advance!
Stop Listview Loading
Hi everyone!
I'm filling a listview with a lot of data. If the user gets tired, he can press a button "Cancel" which should stop the listview loading.
To do that, in the loading loop I put a flag which is continously read at every cycle, for example:
Code:
While count<MaxCount And GoOn
'fill listview
'...
count +=1
End while
' Routine for cancelling
Private sub OnBtnCancel_click (...)
GoOn=False
end sub
However, while the listview is filling up, I cannot press any button because the UI is freezed. So the Cancel button is unuseful.
Usage of Listview.BeginUpdate and Listview.EndUpdate() is useless.
The only way I found to make this work is to have the listview filled by another thread... but this is of course illegal because one should have the UI thread which created the listview to handle it, and not another thread.
Does someone have an idea?
Thank you
Help - Loading An External Listview ..
hello,
quick question - can the data from an external listview control be 'copied' to a listview control on the local app?
if yes, no so quick question - how would this be accomplished? what controls would be used? Any help would be appreciated.
thanks,
jordan
***RESOLVED***Loading Listview Problem
I have a ListView control which is being loaded on form load procedure. I also provide a command button on the form whose purpose is to refresh the ListView control. This refresh button calls on the same code which is used to load the ListView on form load.
The ListView loads beautifully on form load but not when the refresh button is used (which as I said before calls on the same code which was used in form load?). When the refresh button is clicked it adds a bunch of blank lines at the top of the ListView control and then only some of the actual data below.
I did a Ctrl+Break and walked through the code. The code formats the grid as it should and begins looping through a recordset adding items to the ListView. After it gets through the tenth record, instead of adding the next record, it adds a blank line at the top of the ListView? Not sure why it is doing this. The recordset shows that data is there. It goes through the loop as though it is adding the data but then a blank row is added at the top. It does this for the remaining records.
Here is the code being called on both form load and refresh click event:
Private Sub LoadListView()
'Clear listview.
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
'Format ListView.
With ListView1
With .ColumnHeaders
.Add , "CompID", "CompID", 0, lvwColumnLeft
.Add , "Type", "Type", 650, lvwColumnLeft
.Add , "Vehicle", "Vehicle", 700, lvwColumnCenter
.Add , "Issuer", "Issuer", 3240, lvwColumnLeft
.Add , "Facility", "Facility", 1400, lvwColumnLeft
.Add , "Amount", "$ Amount", 1300, lvwColumnRight
.Add , "Price", "Price", 900, lvwColumnRight
.Add , "Analyst", "Analyst", 800, lvwColumnCenter
.Add , "Time", "Response Time", 2100, lvwColumnLeft
.Add , "TimeVal", "TimeVal", 0, lvwColumnLeft
End With
.View = lvwReport
' Open a recordset
MySQL = "SELECT tblCompRQST.Comp_id, [tblCompRQST]![deal-code] AS Vehicle, tblCompRQST.custom, " & _
"tblCompRQST.borrow_nbr, tblCompRQST.WU_id, tblCompRQST.WU_FacID, " & _
"IIf(IsNull([tblCompRQST]![custom]),UCase([tblWriteUp]![WU_Borrower]), " & _
"[Pilfile]![borrow_name]) AS Issuer, IIf(IsNull([tblCompRQST]![custom]), " & _
"[tblCapStruct]![FacDesc],[Pilfile]![loan_desc]) AS Facility, tblCompRQST.Analyst, " & _
"tblCompRQST.Price, tblCompRQST.Amount, tblCompRQST.Response_time, tblCompRQST.Status, " & _
"tblCompRQST.Type, tblCompRQST.Settled " & _
"FROM (((((tblCompRQST LEFT JOIN tblWriteUp ON tblCompRQST.WU_id = tblWriteUp.WU_id) " & _
"LEFT JOIN tblCapStruct ON tblCompRQST.WU_FacID = tblCapStruct.WU_FacID) LEFT JOIN " & _
"Pilfile ON tblCompRQST.borrow_nbr = Pilfile.borrow_nbr) LEFT JOIN tblMoodyCLOindustry ON " & _
"Pilfile.moody_code = tblMoodyCLOindustry.SSBIndustryCode) LEFT JOIN tblSPCLOindustry ON " & _
"Pilfile.sp_code = tblSPCLOindustry.SPIndustryCode) LEFT JOIN tblFIndustry ON " & _
"tblCompRQST.FIndustryCode = tblFIndustry.FIndustryCode " & _
"GROUP BY tblCompRQST.Comp_id, [tblCompRQST]![deal-code], tblCompRQST.custom, " & _
"tblCompRQST.borrow_nbr, tblCompRQST.WU_id, tblCompRQST.WU_FacID, " & _
"IIf(IsNull([tblCompRQST]![custom]),UCase([tblWriteUp]![WU_Borrower]), " & _
"[Pilfile]![borrow_name]), IIf(IsNull([tblCompRQST]![custom]),[tblCapStruct]![FacDesc], " & _
"[Pilfile]![loan_desc]), tblCompRQST.Analyst, tblCompRQST.Price, tblCompRQST.Amount, " & _
"tblCompRQST.Response_time, tblCompRQST.Status, tblCompRQST.Type, tblCompRQST.Settled " & _
"Having (((tblCompRQST.Status)='ACCEPTED') AND ((tblCompRQST.Settled)=No));"
Set MyDb = OpenDatabase(RDSDATA_PATH & "rdstables.mdb")
Set MySet = MyDb.OpenRecordset(MySQL)
'Execute code if MySet is not empty.
If MySet.RecordCount <> 0 Then
'Moves to the first record in the recordset.
MySet.MoveFirst
' Use values from recordset to populate listview control
'****THIS IS WHERE PROBLEM OCCURS****
For I = 1 To MySet.RecordCount
.ListItems.Add I, , MySet.Fields("Comp_id")
With .ListItems(I).ListSubItems
.Add , , MySet.Fields("Type")
.Add , , MySet.Fields("Vehicle")
.Add , , MySet.Fields("Issuer")
.Add , , MySet.Fields("Facility")
.Add , , Format(MySet.Fields("Amount"), "#,###.00")
.Add , , Format(MySet.Fields("Price"), "###.0000")
.Add , , MySet.Fields("Analyst")
.Add , , MySet.Fields("Response_time")
.Add , , Format(MySet.Fields("Response_time"), "yyyymmddhhmmss")
End With
MySet.MoveNext
Next I
'***********************************
End If
End With
MySet.Close
MyDb.Close
Set MySet = Nothing
Set MyDb = Nothing
'Set Sort Optiot button to Ascending (A-Z).
Option2(0).Value = True
lblSelectA.Caption = "0"
End Sub
Loading PNG Files ?
I want to click the button and the image is loaded into Picture1. The problem is PNG files are not "standard" so I can't use this code to load it, does anyone have an idea what I have to do?
Picture1 = LoadPicture(App.Path & "Images.png")
Thanks
Silver
Loading Gif Files?
i have an animated gif file, and i want to use it in my form, how can i do this, plz help
Loading Files!!!
Aiight, this is how it goes... I've grasped the concept of Sprites and BitMaps, but I can't understand how to load it from a file into my game and use it from there... Any help and maybe some "explained" examples might help me out...
Thanx Much!!!
Pls Help For Loading EML Files
hi! Every body
I was writing a email program where in I have to Load eml files. Can any one help me in this.
Or in other words I want to load a .eml file in my program as it can be loaded and previewed in outlook express.
Looking for reply
Thanks & Regards
Down Loading More Than One Files Frm URL
i want to create a download manager in vb6.0
which will download files from a given url , it should have the feature for downloading from multiple url's simultaneously.
i.e multiples files can be downloaded simultaneously.
and show the progress bar for each diaplaying status of each.
pls suggest me how to do and what control should i use .
i have done it thru thread and ms-ITC , but is producing errors.
i am attaching the code i have written.
Loading Files
Hi,
I hope I don't ask too much
I'd like to know how I can get VB to load a file from the same directory as the form/program is in itself.
When I write:
VB Code:
Open "Database.txt" For Input As #1
VB just says that the file's not found :S
Loading Files
I'm writing a program to load a file (file extentions *.mpg, *.avi, *.txt, and *.exe) for an autorun file on some cd's i'm making.
Basically, I want to be able to open the movie, or executable, or text file, all in the default veiwers and not in the program, and then have the program shut down when the user has succsessfully opened the file.
Don't get me wrong, I have attempted to do this on my own. The regular filehandling options don't seem to work...Is there a special command for just opening a file, as if the user clicked on the file's icon in explorer?
Thanks in advance....
-geekfrog
Loading Files
How would I go about loading a text file, or an ini file into a listbox? I cant figure it out.
Loading Files
My program is acting a bit strangely. I have built into it a procedure were you can change the path of the needed files. And this procedure works fine. However, when I add my procedure to the program, everything work, the variables with the path, all get set correctly, but the files do not get loaded imidiatly, so that the combo-boxes of this, the main form, gets filled.
CODEDim strAnsatte As String
Dim strAnsatteFilePath As String
Dim strBygg As String
Dim strByggFilePath As String
Dim strEiendom As String
Dim strEiendomFilePath As String
On Error GoTo HandleErrors
'strAnsatteFilePath = "C:ikdv" & "Ansatte.dat"
'strByggFilePath = "C:ikdv" & "Bygg.dat"
'strEiendomFilePath = "C:ikdv" & "Eiendom.dat"
strAnsatteFilePath = gstrDatabasePath & "Ansatte.dat"
strByggFilePath = gstrDatabasePath & "Bygg.dat"
strEiendomFilePath = gstrDatabasePath & "Eiendom.dat"
Open strAnsatteFilePath For Input As #1
Open strByggFilePath For Input As #2
Open strEiendomFilePath For Input As #3
Do Until EOF(1)
Input #1, strAnsatte
cboAnsvarlig.AddItem strAnsatte
Loop
Close #1
Do Until EOF(2)
Input #2, strBygg
cboBygg.AddItem strBygg
Loop
Close #2
Do Until EOF(3)
Input #3, strEiendom
cboEiendom.AddItem strEiendom
Loop
Close #3
.exe Files And Loading Bar
1st whell, hum, i want to password protect some .exe files, like msn and kazaa and stuff, how can i let VB open them once you've selected the program?:s
2nd i've found this loading bar in the web browser form, i've just added a web browser to my project so i could put that loading bar in a normal form, how can i let this thing do it's loading?
plz give me the code and explain what i have to do in a normal way, in just plain english and not in a programming language that i don't understand...
Loading XML Files In VB6
Hi,
I've loaded XML files using the code "xd.load (file_name)". However, as I was doing more testing, I found that some xml documents can be loaded successfully while some can't using the same line of code...
can anyone help?
Thank you.
Loading Files
hi.
how can i load all the file names that are "*.mp3" from the folder "my documents" into a listbox control?
thank you.
yaniv.
Saving / Loading Text From A Text Document
For example..
When I press a button, I want "SCORPION" to be added to a .txt file. When I press another, I want it to load what ever is in that .txt file, and place it in text box = text2.text
How can I do this? Thanks!
Loading Text Into A List Box From A Text File
Hey Ppl,
i have a file that contains different number of text lines everytime...in this for
muzamil
sumra
myanme
etc
but this text can change everytime...some more names might be added to the text file or deleted....
how can i load the text into a listbox?
i have done in this way but this loads only 1 line
Dim first As String
Open "C:migpro Expert Publiclistsetlistset.txt" For Input As #1
Do While Not EOF(1)
Input #1, first
If List1.ListCount = 0 And first <> "" Then
With List1
.Clear
.AddItem first
End With
End If
loop
close #1
Loading Text File Into Various Text Boxes
Hope someone can help. I've been trying to get a text file and look like..
input=c: estinput
output=c: estoutput
i've been trying to read the first line and find the "=" then anything after this use in text1.text
Anyone have any ideas? I'm newish and at the moment my head just wont work..
Thanks
|
TRACKER
