|
MkDir "C:\something\something more"
However the folder something would have to exist.
So it would be
MkDir "C:\something"
MkDir "C:\something\something more"
if both didn't exist
It's so true.
|
|
|
|
|
You could also use api functions
http://www.mentalis.org/apilist/CreateDirectoryEx.shtml
http://www.mentalis.org/apilist/CreateDirectory.shtml
Again you have to create the dirs in steps.
It's so True.
|
|
|
|
|
You mean somthing like this?
Imports System.IO
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Directory.CreateDirectory("C:\something\something more")
End Sub
|
|
|
|
|
Hi
We are currently experiencing problems with VB.NET using large ammounts of custom controls. Occasionally when we open our forms in the design view of Visual Studio 2003 one of two things will happen - the forms just drop all of thier controls off of the forms, or, the controls drop all thier handles!
Has anyone experienced anything like this before, and if so did you find a solution?
Thanks
Michael
|
|
|
|
|
You'll have to supply more information about the problem in order to diagnose it. But, I have run into this[^] problem before. There's a hotfix available for it now.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dear All...
How can i implement the "Print to file" functionality using VB?
____________________________________________________________
rishabhs
I think therefore I am.
|
|
|
|
|
You'll have to write the code to output whatever you want to this file yourself using standard file write methods. The "Print To File" functionality in both the .NET Framework 1.0 and 1.1 is broken. This is supposed to be fixed in 2.0 though.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello I am using RTB in VB.net, i am developing a text editor. I am facing a problem that is, when I copy text from a word document that contains tables as well and paste it into RTB. it ruin the structure of table. means if table in word document was containing 3 rows and 2 columns it makes just one row and moves text out of the table. Along with it does not apply same fonts (a document can have multiple fonts and their sizes ), rather it applies default font....
can u guide me about it.....
Thankss
|
|
|
|
|
Hi,
I've a little console application in vb.net.
I want when the program exit, to test an errorlevel to know if the program run well.
I've search around but I've found nothing about how to do that.
Any1 know how to generate errorlevel code on a console application exit ?
thx
Sybux
|
|
|
|
|
The return value from the Main method returns the errorlevel back to the command prompt
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!
|
|
|
|
|
I've try 2 methods but all failed.
1st one : I've added a system.environment.exit(myfunction)
In "myFunction", I return 1, 2 or 3 as exit value.
Problem : errorlevel is always 1
2nd one : I've modified the sub Main in function Main() as integer and replaced the system.env... by return (myFunction)
And the problem is still the same only an errorlevel 1 is generated.
|
|
|
|
|
I created a little demo program. My suggestion of returning the value from the Main method doesn't seem to be available in VB.NET (It must be a C# thing)
Anyway this works:
Module Module1
Sub Main()
Environment.Exit(Convert.ToInt32(Environment.GetCommandLineArgs.GetValue(1)))
End Sub
End Module
It takes a commandline parameter which it returns back as the error code. The following little batch file demonstrates:
SetErrorLevel 5
echo The error level is %errorlevel%
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!
|
|
|
|
|
I've created a service that updates the components of several of my applications from a central file share on my network. The service is running with the localsystem account. An exception occurs when the service attempts to connect to the file share. The share contains the components that I copy to the local computer to update an application. I think the problem lies in the way the service connects to the shared folder. It uses the local computer's credentials when it connects, I think. Is there any way that the service can connect to the specified file share using the current user's credentials?
|
|
|
|
|
Services run all the time, even when there is no user logged in.
A better solution would be to allocate a domain account for the service to use that has the relevant access.
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!
|
|
|
|
|
Like Colin said, you'll have to create an account that has rights to both the local machine for updating the components AND rights to the server share. The local system account does NOT have any rights to any network resources. Go into the Service manager and change the account that your service is running under to use this account.
Using the currently logged in users account is not a good idea...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
When i try to insert the date type in the format 23/03/2004 12:00:00, I am getting an error incorrect syntax near (.).
coulfd anyone hep me with thiw
|
|
|
|
|
Take a look here, the code he shows is in C# but it shows all the date formats, so it should be easy to follow.
Date and Time Manipulation in SQL Server 2000
http://www.sqljunkies.com/HowTo/6676BEAE-1967-402D-9578-9A1C7FD826E5.scuk
|
|
|
|
|
This is my first post, so sorry if I break any taboos. I have developed a contact manager program in VB.net 2003. I am storing my data in a Access 2000 database. I have a find button and text box that searches a given field for a match, but the code I have written searches for the exact word and doesn't search for partial matches. I have looked all over the internet and have been unable to find a solution. I have included below the find exact match code as well as my attempt at a partial match search. Any guidance or help would be appreciatied.
Find Exact (Does Work)
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindExactMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase(DsSalesMainViewer.MAIN(i)("CONTACTLASTNAME")) = UCase(txtFind.Text) Then<br />
Exit For<br />
End If<br />
Next i<br />
If i = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
Find Partial Code (DOES NOT WORK) I get a syntax error on the then at the end of the like statement.
Private Sub btnFindPartialMatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindPartialMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase((dsSalesMainViewer.Main(i)("CONTACTLASTNAME")) Like "*" & UCase(txtFind.Text) & "*" Then<br />
Exit For<br />
End If<br />
Next i<br />
If = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
Thanks, Andy S.
|
|
|
|
|
LIKE '%WHAT-TO-MATCH%'
Like "'%" & UCase(txtFind.Text) & "%'" Then
|
|
|
|
|
I appreciate the help. I tried changing the code as follows, but I still have a syntax error following the Then at the end of the like statement.
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindExactMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase((dsSalesMainViewer.Main(i)("CONTACTLASTNAME")) Like "'%" & UCase(txtFind.Text) & "%'" <br />
Exit For<br />
End If<br />
Next i<br />
If = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
|
|
|
|
|
I don't see the then in the code you posted.
If UCase((dsSalesMainViewer.Main(i)("CONTACTLASTNAME")) Like "'%" & UCase(txtFind.Text) & "%'") Then
|
|
|
|
|
Ok, that last line got rid of the syntax error I was having and I can run debugger, but I now have no find functionality. The program finds no matches even if you type the exact string. I have included the current code revision. Thanks for your help thus far, it is greatly appreciated.
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindExactMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase((DsSalesMainViewer.MAIN(i)("CONTACTLASTNAME")) Like "'%" & UCase(txtFind.Text) & "%'") Then<br />
Exit For<br />
End If<br />
Next i<br />
If i = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
|
|
|
|
|
The LIKE statement has to be used as a string not as a vb statement, sorry, try this.
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1
Dim sString As String = "Like '%" & UCase(txtFind.Text) & "%'"
If UCase((DsSalesMainViewer.MAIN(i)("CONTACTLASTNAME")) & sString) Then
Exit For
End If
Next i
|
|
|
|
|
I get the unhandled exception below. Addedlike is the first value in the table.
An unhandled exception of type 'System.InvalidCastException' occurred in microsoft.visualbasic.dll
Additional information: Cast from string "ADDEDLIKE '%SA%'" to type 'Boolean' is not valid.
|
|
|
|
|
Add a space in the line like this,
Dim sString As String = " Like '%" & UCase(txtFind.Text) & "%'"
if this doesn't work I'm gonna need to see more code to re-write it, I dont have your data and ect. ect.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
