|
Hello Guys.
I have a VBScript and want to copy a file. I want to make sure it finishes successfully.
If the destination-file is set to "read-only" there occures a Runtime Error '800A0046 - Permition denied'.
What I want: I dont want to get the Script-Host error message but instead my own. Therefore I need the error number ( the error code 800A0046 does not work ) so that I can use
On Error Resume Next
IF (Err.Number > 0) THEN
IF (Err.Number = 32755) THEN
...............
as I did it here to check if the user pressed cancel in a open-dialog box.
Since I'm very new to VBScript programming , I don't have any idea where I can look for a solution to problems like this one. So I hope to find help here. I googled a while and also searched in the MSDN but found nothing.
Thank you very much.
modified 31-Jul-14 4:18am.
|
|
|
|
|
|
Hello thatraja,
thank you for the fast answer. This helps me a lot 
I tried it and it perfectly works. Thank you.
I took this part
Dim FSO
Dim oFS
CONST F_ATTR_RONLY = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFS = FSO.GetFile("d:\test\o2\test.png")
IF oFS.Attributes AND F_ATTR_RONLY
THEN
ELSE
FSO.CopyFile "d:\test\o1\test.png", "d:\test\o2\"
END IF
and it totally works for my purpose.
|
|
|
|
|
i created an application that loops numbers from 2 textboxs ("Starting Sequence" and "Ending Sequence") and displays it into a datagridview, what i am looking for is a code that would pass the selected cell from the datagridview into the microsoft reports, or pass each row into 1 page of report (i.e. sequence 0001 will be in 1 microsoft report page upto the ending sequence to the last report page) can anyone help me?
|
|
|
|
|
Can someone please guide me through this?
In this program you will create a Windows Form application that will calculate and display the money made by a drive-in movie theater each night. The movie theater has two types of nights. A "Regular" night is where each person in a guest car has to buy a ticket, and each ticket costs $10. A "Car" night is a special promotion where there is one price per car of $15, no matter how many guests are in the car.
In addition to the cost of entry (either Regular or Car), the theater sells popcorn and candy but the price of the items depends on the type of night. On a Regular night popcorn costs $1.50 per box and on a special Car night popcorn costs $2.00 per box. On a Regular night candy cost $2.25 per candy box, while on a special Car night candy cost $3.00 per box.
On any night, the maximum number of cars allowed in is 500 and the maximum number of individual tickets is 3,000; the theater can produce 4,500 bags of popcorn each night and has 4,000 candy items.
Once the total sales are calculated, the program will display a summary message with the type of night, the total number of cars, the total ticket sales, the total popcorn sales, the total candy sales, and the total sales amount.
|
|
|
|
|
Public Class frmSalesData
Dim intCars, intTickets, intPopcorn, intCandy As Integer
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
Me.txtNumCars.Clear()
Me.txtNumTickets.Clear()
Me.txtNumPopcorn.Clear()
Me.txtNumCandy.Clear()
Me.lblTotal.Text = Nothing
Me.txtNumCars.Focus()
End Sub
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim strMessage As String
Dim dblNumCars, dblNumTickets, dblNumPopcorn, dblNumCandy As Double
Dim dblTotalSales As Double
If radRegular.Checked = True Then
Me.lblTotal.Text = "Tonight was a REGULAR night."
ElseIf radCar.Checked = True Then
Me.lblTotal.Text = "Tonight was a CAR night."
End If
Double.TryParse(Me.txtNumCars.Text, dblNumCars)
Double.TryParse(Me.txtNumTickets.Text, dblNumTickets)
Double.TryParse(Me.txtNumPopcorn.Text, dblNumPopcorn)
Double.TryParse(Me.txtNumCandy.Text, dblNumCandy)
dblTotalSales = dblNumTickets + dblNumPopcorn + dblNumCandy
strMessage = "The total number of cars present was: " & dblNumCars.ToString() & _
"The total number of tickets sold was: " & dblNumTickets.ToString() & _
"The total popcorn sales were: " & dblNumPopcorn.ToString("N2") & _
"The total candy sales were: " & dblNumCandy.ToString("N2")
Me.lblTotal.Text = strMessage
End Sub
End Class
|
|
|
|
|
Looks reasonable to me, and you didn't receive any harsh comments yet.
If it does what the assignment states (and compiles), then it's a go 
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Good stuff.
To add elegance use a StringBuilder for your message.
Normally you would get ragged on for posting an assignment (and was roundly ignored), posting the solution got you the upvote 
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
how to filter a particular data from database bu using two arguments????
|
|
|
|
|
Can you explain further? Can you site your code? Or even tell us what are those two arguments you'll use?
We don't have crystal balls, nor we cannot read constellations here.
Don't mind those people who say you're not HOT. At least you know you're COOL.
I'm not afraid of falling, I'm afraid of the sudden stop at the end of the fall! - Richard Andrew x64
|
|
|
|
|
If I had crystal balls, I'd be very careful when I sat down. 
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Don't mind those people who say you're not HOT. At least you know you're COOL.
I'm not afraid of falling, I'm afraid of the sudden stop at the end of the fall! - Richard Andrew x64
|
|
|
|
|
Member 10970081 wrote: how to filter
Look up the <a href="http://www.w3schools.com/sql/sql_where.asp">WHERE</a>[<a href="http://www.w3schools.com/sql/sql_where.asp" target="_blank" title="New Window">^</a>] clause. It's part of the SELECT statement.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Dear All,
I have a problem and for that I am not able to solution initially ..please help me what should I do and how?
Problem :-
I want to Compile an Excel file to exe file. That exe file will work like an actual excel file but it will hide all formulas and if I make change in cell that will effect formula cell and show latest calculation accordingly....
Which Code or language should I use..............?
DEWESH 030286
|
|
|
|
|
You cannot 'compile' an Excel file into anything, it is purely data. You can use protected cells and passwords on the files as necessary.
|
|
|
|
|
We have a EXE application developed in VB6 that uses MSWinsock, now we are migrating it to VB.NET 2010, and we are getting this error. We tried giving strong name to it but failed and also we used TLIMP command that also failed. Can some one guide...what mistake we are doing and also how to resolve this issue
Thanks in Advance...
Vamsi03
|
|
|
|
|
Next time onwards include the error message in question. Check this article
Winsock Revamped[^]
|
|
|
|
|
i want a vb script for subversion pre commit server side hook script which should block the commit if conflict markers are present in the committing file
|
|
|
|
|
This is a board where you can ask questions.
Yours is not a question; it's merely a statement of what you want. The top Google result would point to a CodeProject article on the subject[^].
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
I am trying really hard, but I'm just not getting this...
This is what I need to do...
Set prompt = “Enter sides of the square”
Show Input Box
Convert string input to length
Area = length * length
Set output = “Square of side length “ + length + = “: “ + area
This is where I am at...
Dim prompt, sideLength As String
Dim area, length As Double
prompt = InputBox("Enter sides of the square.")
sideLength = Convert.ToDouble(length)
area = length * length
Me.lblOutput.Text = "Square of side length " & length & ": " & area
|
|
|
|
|
Member 10728667 wrote: sideLength = Convert.ToDouble(length)
Where are you magically setting the value of "length"?
Then you take the trouble of converting "length" to Double but then never use it.
Learning to use the debugger is a very valuable skill.
|
|
|
|
|
Excuse me. I don't understand. I'm just learning this all, and it's very confusing. 
|
|
|
|
|
Edited. Misread the code. length is actual declared as a double.
We can't possibly know what is confusing you unless you tell us.
You are trying to convert a string to a double right? The string you are trying to convert is named "length" right? Look at your code and see if you can find anywhere in your code where you are setting "length" to be something other than an empty string....
Your code as it stands right now is you are trying to convert length (which is a double) to a double. Then put that result in a string named "sideLength". Why would you convert a double to a double? Does it make more sense to you to convert the user input to a double?
Then you take the result of your convert operation and put that into a variable named "sideLength", then you don't use it anywhere.
Learn to use the debugger and you can follow the code and see what it is doing.
modified 21-Jul-14 17:44pm.
|
|
|
|
|
Dim prompt, sideLength As String
Dim area, length As Double
prompt = InputBox("Enter sides of the square.")
sideLength = Convert.ToDouble(length)
area = length * length
Me.lblOutput.Text = "Square of side length " & length & ": " & area
Take a look at http://msdn.microsoft.com/en-GB/library/6z0ak68w(v=vs.90).aspx[^] for an example of how to use the InputBox method.
|
|
|
|
|
Is possible showing persian date in datagridview which connected to an sql
database ?
if there is any way please help me
majid
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
