|
|
I have two functions. The first function search the directory for specific file extensions. I have a folder browser to browse to the folder in which I want to search for the files. The path is displayed into textbox1. Whatever file extension I type into textbox2, the filename with that extension will be added to listbox1.
Here is the code:
Private Sub GetDirectoryContents(ByVal dirs() As String, ByVal patterns() As String)<br />
'Declare variable.<br />
Dim dDir As DirectoryInfo<br />
<br />
For Each sDir As String In dirs<br />
If Not Directory.Exists(sDir) Then Continue For<br />
dDir = New DirectoryInfo(sDir)<br />
For Each ext As String In patterns<br />
For Each fi As FileInfo In dDir.GetFileSystemInfos("*." & ext)<br />
ListBox1.Items.Add(fi.Name)<br />
Next<br />
Next<br />
Next<br />
End Sub
The second function connects to an access database pulling data from tblExclude. The table has three fields(ExcludeID, ExcludeFilePath, ExcludeFileName). The code that I have will read the data in tblExclude and display the columns rows into listbox2.
Here is the code:
Private Sub SearchDatabase()<br />
<br />
Dim myConnString As String = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Application.StartupPath & "\File.mdb"<br />
Dim myConnection As New OleDbConnection(myConnString)<br />
myConnection.Open()<br />
Dim strSQL As String = "SELECT ExcludeFileName FROM tblExclude"<br />
Dim cmd As OleDbCommand = New OleDbCommand(strSQL, myConnection)<br />
Dim objread As OleDbDataReader<br />
objread = cmd.ExecuteReader<br />
<br />
While objread.Read<br />
Me.ListBox2.Items.Add(objread("ExcludeFileName") & "")<br />
End While<br />
objread.Close()<br />
myConnection.Close()<br />
<br />
Me.ListBox2.SelectedIndex = 0<br />
End Sub
I need these two functions to some how interact with each other to get it to do what I want it to do. I want to be able to check the db table to see if a specific file exist. If the ExcludeFilePath in tblExclude is equal to the file path in textbox1 then display ExcludeFileName from tblExclude into listbox2. If the ExcludeFilePath in tblExclude does not equal the path in textbox1 then perform the first function. I know that this may be a lot of information but I want to make sure it is comprehendible.
jds1207
|
|
|
|
|
All you have to do is check each file against your database using a little SQL:
SELECT Count(ExcludeFileName) FROM tblExclude WHERE ExcludeFileName LIKE ?Filename
Use the normal OldDbCommand object to execute this query, using it's ExecuteScalar method. Make sure you give the filename in an OleDbParameter object! If you get back anything over 0, that filename is in the database.
|
|
|
|
|
I would like to use an ampersand (&) within a string in a text for a label. I guess because it is used to underline characters in menus, the '&' does not appear in the label. Any ideas on how to display something like "A&M" for the text of a label?
Rich Feldman
|
|
|
|
|
I'm not sure if it works in VS 2003, but in VS 2005 you would just do this:
myLabel.Text = "A&&M"
|
|
|
|
|
i am currently to develope a project(part of a school assignment) that should establish communication between a webserver and a remote computer. its should work like a standard server/client tcp LAN project.
i tried using tcpClient and tcpListener i.e
'------------------------------
Dim client As TcpClient
client = New TcpClient("www.myproject.com", 13000)
Dim server As TcpListener
server = New TcpListener System.Net.IPAddress.Any,13000)
'------------------------------
but this did not work. Please, is there anyone there who can help me. thanks in advance
leo1
|
|
|
|
|
I googled vb.net Sockets[^] and got the following article: VB.NET TCP Client/Server Socket Commmunications[^] and it's code looked a bit different than yours.
Samples in articles like this usually work, but there were several other articles out there so do some more reading if need be.
topcoderjax - Remember, Google is your friend.
|
|
|
|
|
This isn't VB so much as VBA, I guess, but maybe someone can help...
MS Outlook allows you to open a message and remove any attachments (right-click and select "Remove") - the trouble is that having done so there is no record left of it... I wanted a way to insert a line ssayting "attachment xyz.doc removed", or something.
I came up with a little macro to do this, below, but it has a side-effect of also removing all and any formatting in the email body as well, which is somehwta unfortunate.
If anyone can help with how to re-write this to
a) ermove the attachment(s)
b) insert/append line(s) saying what has been removed
c) retain the original formatting (html) of the message
I would be most grateful...
cheers
Fred
Sub delAttach()
Dim i%, k%, km%, v$
On Error Resume Next
With ActiveExplorer.Selection
For i = 1 To .Count
' Debug.Print i, .Item(i).Subject, .Item(i).Attachments.Count
Err.Clear
km = .Item(i).Attachments.Count
If km > 0 Then
v = Format$(km)
k = 1
.Item(i).Body = .Item(i).Body & vbCrLf & vbCrLf & "--- " & km & " Attachment(s) removed " & _
Now & " -------------------------" & vbCrLf
Do While k <= km
.Item(i).Body = .Item(i).Body & vbCrLf & .Item(i).Attachments(k).FileName
k = k + 1
Loop
Do While k > 1
k = k - 1
.Item(i).Attachments(k).Delete
Loop
.Item(i).Body = .Item(i).Body & vbCrLf & "---------------------------------"
.Item(i).UserProperties.Add "AttachRmvd", olText
.Item(i).UserProperties("AttachRmvd") = v
If Err = 0 Then .Item(i).Save
End If
Next i
End With
End Sub
|
|
|
|
|
I don't do Office Interop, but it looks like your adding this text to the message with regard as to the type of text that's in the message, like Plain, RichText or HTML. I think you'd have to figure out what type of text it is first, then insert the text based on the rules of formatting for that type. For instance, if it's an HTML message, you'd have to find the <body> tags and insert the text inside those tags.
|
|
|
|
|
Ta - no doubt you're right... but that's where I get stuck!
cheers
Fred
|
|
|
|
|
What you mean you get stuck? It's simple string manipluations. Look for an <HTML> tag, then if you find one, look for a <BODY> tag. If you've found both, then you possibly have a valid HTML mail. Find the corresponding </BODY> tag and you've no doubt found the place to strick your message.
If not, test for RichText using similar methods, but different search criteria.
|
|
|
|
|
God.. never occured to me it would be that easy! OK, will have a go... After the football (soccer - European Cup final...)
cheers
F
|
|
|
|
|
hi ,
i have four checkboxes
can i provide four events in a single handler
Private sub checlick(byval sender as system.object, byval e as system.eventArgs)checkbox1.checkchanged , checkbox2.checkchanged , checkbox3.checkchanged , checkbox4.checkchanged
end sub
|
|
|
|
|
Yes, for instance
Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
MessageBox.Show(sender.Name)
End Sub
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
|
yes Nilish , You can handle these four event from a single handler
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
|
|
I don't really have a link. I have an article I wrote on VS setup projects:
http://www.codeproject.com/dotnet/Win_App_Setup_Project.asp[^]
And the post you are refering to was a copy of the forum discussion at the bottom of that article.
If you take the code in the link and put it in like a batch file. You can create a shortcut to that batchfile and assign whatever icon you want to it.
Hope that helps.
Ben
|
|
|
|
|
Hi Kubben,
Thanks for that lovely article.But that elaborates only the installation process and not the uninstallation process programatically with the help of uninstall icon.
|
|
|
|
|
Ok, I havn't tried this, but these steps should work.
Create a new file with a bat extension.
In the file put this line:
msiexec /x {460FB517-716B-4495-B3CE-44799A75D868}
Note the GUID must be the one from your setup project productcode.
Add this file to the application folder of your setup project so it will get installed.
Add your icon you want to associate with the bat file.
Set the icon for the bat file.
Create a shortcut to this file in the program menu.
That should pretty much work.
Ben
|
|
|
|
|
By the way there is nothing wrong with having the user go to control panel and then using add/remove program to uninstall your programs.
If you are writing a software package that people are buying I can see why you want an uninstall icon, but if it is for an internal company install, I find I would rather not give the employee an icon they might click on by mistake that will uninstall my program.
Ben
|
|
|
|
|
Sir, Yes ... U r right.Control panel is also the way.and I am very sorry for specially calling u to attend this thread.Sir, The thread u provided , was very good one for the installation process.Actually it is requited to povide the uninstallation file along with the installation file.
Thanks
-- modified at 9:07 Wednesday 23rd May, 2007
|
|
|
|
|
hi,
My application can check at startup whether particular font is installed on client system or not. if particular font is absent then i want to that my application install this font to client system(not just copy).
have any idea about how can i perform this thing in vb.net or link that provide appropriate information about this thing using vb.net(not VB)
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
If you are using something like InstallShield, you could create an installer for the font, then from your program execute the install, should the font be missing.
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
