|
Hello!
I created a directory under my specific project at design time and I would like to know how I get the directory name for the file residing under this directory.
Thanks.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
I'm guessing you want the name of the directory that your app is in. So in that case, you can use the System.Environment.CurrentDirectory namespace.
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
Thank You!
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Hi,
I have been tasked with a strange query...
Can I write a VB.NET applications which will force the users to change their password every 90 days on a Windoes 2000 or 2003 server?
Currently we do NOT hve a domain but a bunch (5+) Windows Servers. Is it possible to write a script to be called by Windows Scheduler ever 90 days to force all our users to cheange there passwords on each server?
That is Phase A
Phase B - to include the abillity to do the same on a Red Hat server? And our ERP system?
Thanks
Phill
|
|
|
|
|
since you don't have a domain, I am assuming that each user has a local account on each server. if you set the policy of server to expire the password would that do what your asking about? --> no need for a script?
|
|
|
|
|
That is a method we tried but then each server (all 5 of them) asks the user to change his/her password one after the other.
Is there a script I could write, or steal, that I can ask the user to change password and propogate it to all 5 servers?
But you are correct.
Phill
|
|
|
|
|
THe problem with that script is that each server will ask for the previous password before it lets you set a new one. If the passwords are not synch'd from the start, the password change will work on some servers, but not others.
Your best solution is to create a domain environment, so everyone gets 1 account, not 5 different ones. Problem solved, and no code.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
hi everyone,
i am working o a project with vb.net that i want that this program read files sizes of files in a folder.
what should i have to do to begin that.
is there someone any idea?
|
|
|
|
|
alpdoruk wrote: what should i have to do to begin that.
First you should add imports system.io to yor project and then you will able to process directories and files.
use filesystem statment to reach the directories (filesyste.dir)
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
i found no examples for this subject.i don't have any idea where to start ?
|
|
|
|
|
I don't think if anyone can give you the whole coding for the purpose. Therefore, I suggest you to examine MSDN and search about system.io then you will discover teh whole thing. I am showing you a pin-hole.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Private Sub GetTheSizes(ByVal sDir As String)
Dim saFiles() As String = Directory.GetFiles(sDir)
Dim oFile As FileInfo = Nothing
For Each sFile As String In saFiles
oFile = New FileInfo(sFile)
MsgBox(oFile.Name & " is " & oFile.Length & " in size.")
'or add the line to a listbox or whatever
Next
End Sub
|
|
|
|
|
I am having a discussion with a college about evaluating an expression with Visual Basic.
It is centered around that an "If" statement is evaluated from Left to Right. So, once the expression is found True or False, the remaining portion of the expression is not evaluated.
Consider the follow:
<br />
If (C = 3) And ((B / A) > 1) Then<br />
MsgBox "checking If statement"<br />
End If<br />
If the value of "A" is zero, this would cause an execution violation. This should only happen if "C" has the value of 3. In Visual Basic, the right side of the statement is being evaluated no matter what the value of "C" is. In the many "C" compilers that I have worked with, the second half of the statement would be ignored as long as "C" was not equal to 3.
If somebody could shed some light on this issue, it would be appreciated.
Also, is there a way in the Visual Basic environment to view the assembly code?
Thank you.
Eldon Zacek
|
|
|
|
|
Doesn't VB have two Boolean AND operators: And and AndIf
One will shortcircuit as soon as the final result is known.
Also, you can always experiment by putting in method calls that output to the console and then return values back to the If statement, then step through the code and see which methods are called and in what order.
|
|
|
|
|
Are you talking about pre-.NET?
If you are talking about VB.NET then using And will evaluate the entire statement period. If you wanted to stop evaluating at the first falsehood then you would use AndAlso or OrElse .
CleaKO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy "Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
The version being used is V6. Sorry I left that out.
Why does VB6 not follow the convention that VC does? Is this something left over from way back when?
Is there a way to get VB6 to perform the evaluation from Left to Right?
Thanks.
Eldon Zacek
|
|
|
|
|
It performs the evaluation from left to right but evaluates the entire statement regardless of any previous false statements contained in the If . Many people picked up the bad habit of programming FOR this so it can be a hassle to upgrade VB6 to .NET when you have to reproduce someone coding for a failure in the If .
CleaKO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy "Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
as said, in vb6 the entire statement is evaluated left to right may not be an accurate statement because ( ) will override that behavior because what's inside the ( ) is evaluated first then resumes exection of left to right.
for the behavior you want, you will need to break the if statement into 2 different statements
If (C = 3) Then
If ((B / A) > 1) Then
MsgBox "checking If statement"
End If
End If
|
|
|
|
|
how to call add(int i,int j) function in a mfc dll from vb application.
I have done all the steps to include c++ MFC dll to vb project.
It is working fine with function calls with no arguments like show();
But it returning garbage value when i call add(5,4) which passes arguments to the function.
my code in vb is like this:
Private Declare Function AddValues Lib "dllmfc.dll" (i,j) As Integer
Private Sub btnadd_Click()
Dim ans As Integer
a = AddValues(5, 4)
MsgBox (a)
End Sub
please tell me where i am wrong.
punit singh
|
|
|
|
|
Does integer mean the same thing in C++ MFC as it does in VB.NET? It may be that you are passing or receiving the incorrect type.
CleaKO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy "Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
the vb code that when inserting a cd,automatically we read all files names.
|
|
|
|
|
is it a question? or you need a solution...
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Do you mean something like this?
Dim Drive As String = "D:\"
If My.Computer.FileSystem.GetDriveInfo(Drive).IsReady = True Then
For Each File As String In My.Computer.FileSystem.GetFiles(Drive, FileIO.SearchOption.SearchAllSubDirectories)
ListBox1.Items.Add(File)
Next
End If
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
Hi all,
I have a string (for example itcontains "abcde"). I'd like to fill it with spaces until a determined length (for ex. 10) so the final string would be "abcde "
How can I do it?
Thanks in advance,
Marc Soleda
... she said you are the perfect stranger she said baby let's keep it like this... Dire Straits
|
|
|
|
|
Marc Soleda wrote: final string would be
Dim StrLength as Int32 = 10
Dim myString = "abcde"
Dim addSpace as Int32 = 10 - myString.length
Dim I as Int32
For I = 1 to addspace
mystring = mystring + " "
next
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|