|
Hey Everyone,
I've got a windows application and I want to know if anyone has or knows any code for FTPing files through the system. The code I've got so far is here, but I think I'm missing a class which I've failed to find. If anyone has different code that works, then that would be greatly appreciated! 
This is what I have so far out of interest:
Dim ftp As New Chilkat.Ftp2() <----- This is my error, Chilkat.FTP2() isn't defined!!!
Dim success As Boolean
' Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> True) Then
MsgBox(ftp.LastErrorText)
Exit Sub
End If
ftp.Hostname = "ftp.chilkatsoft.com" 'What's the host name?
ftp.Username = "****" 'What's the username?
ftp.Password = "****" 'What's the password?
'The default data transfer mode is "Active" as opposed to "Passive".
'Connect and login to the FTP server.
success = ftp.Connect()
If (success <> True) Then
MsgBox(ftp.LastErrorText)
Exit Sub
End If
' Change to the remote directory where the file will be uploaded.
success = ftp.ChangeRemoteDir("junk")
If (success <> True) Then
MsgBox(ftp.LastErrorText)
Exit Sub
End If
' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml" 'Change that to the file I have to upload
Dim remoteFilename As String
remoteFilename = "hamlet.xml" 'Like wise.
success = ftp.PutFile(localFilename, remoteFilename)
If (success <> True) Then
MsgBox(ftp.LastErrorText)
Exit Sub
End If
ftp.Disconnect()
MsgBox("File Uploaded!")
Cheers,
Michael
|
|
|
|
|
Well, first off, do you have the Chilkat FTP library[^]?? And have you added a reference to it in your project??
|
|
|
|
|
Hello Friends,
In my application i have to transfer a number of files from one folder to another folder on the same machine.
I am unable to fetch multiple files and also help me how to store these files to another location.
Thanks in advance............
Deepak Nigam
|
|
|
|
|
Look in the System.IO namespace, at the File, FileInfo, Directory, and DirectoryInfo classes. They're very easy to use. Just make sure you remember to use fully qualified path names to all of your files and directories.
|
|
|
|
|
Dim str as string()
str=system.IO.Directory.GetFiles ("D:\Test")
for each fname as string in str
system.io.File.copy(fname,"D:\Test1")
next
|
|
|
|
|
Hi there,
I am working on project using Visual Studio 2005 VB.NET. The problem is that when I try to run Application in non .NET platform (i.e. Windows XP but .net is not installed) it does not run(I know it won't)!
Is there any way to develop non .net application in Visual Studio 2005??? It's urgent because I'm really stuck on this.
Thanks
-----------------------
Parth Patel
|
|
|
|
|
killerp wrote: Is there any way to develop non .net application in Visual Studio 2005???
Yes - use C++ and make sure you don't use C++/CLI ( use MFC instead )
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Thanks, Christian Graus
But for me it would be just waste of time and everything if i develop this application again C++.
This software is for school kids and the network do not have .NET installed on normal PCs and unfortunately as it has more than 150 workstations the Network Admin has refused to install it, which has just messed up everything... So before I go any further I just wanted to know if I can do it anyway around!!
|
|
|
|
|
You could use one of the few products that compiles the required parts of the .NET Framework into your .EXE. But, they're very expensive to buy and there are no "free" versions.
If money is an issue, you simply have no alternatives. Either they install the .NET Framework, or you start rewriting in C++.
|
|
|
|
|
Thanks for your reply.
Do you know any software that will do what you said? Compile .NET code into EXE? Becuase I will then have to take decision.
|
|
|
|
|
|
You could always create a setup package that will install the .NET Framework along with your app on those machines.
|
|
|
|
|
That decision is up to the people who own the machines, not the application. If they don't want to install the .NET Framework, you can't force them to do it.
|
|
|
|
|
Parth,
If you are a VB developer, you "could" always use VB 6.0. This would give you the ability to create an .exe that is not .NET framework dependent.
However, it might be easier to simply sell the customer on installing the .NET framework since it won't impact their computer or installed programs and will provide them a migration path to Vista with your program.
modified 27-Feb-21 21:01pm.
|
|
|
|
|
Thank you all for your support & quick reply.
I guess i am gonna make it again using C++ since it's nearly impossible to do what i wanted to..
Once again thank you all. 
|
|
|
|
|
Good Evenig all
Am trying to Bind a Listbox with a dataset, but it does not display on the Listbox.my code is like this
<br />
Public Function GET_Email() As DataSet<br />
Dim dsdata As DataSet<br />
<br />
da = New SqlDataAdapter<br />
<br />
con = New SqlConnection(strcon)<br />
<br />
cmdselect = New SqlCommand<br />
<br />
cmdselect.CommandType = CommandType.StoredProcedure<br />
<br />
cmdselect.CommandText = "Get_Emails"<br />
<br />
cmdselect.Connection = con<br />
<br />
cmdselect.CommandTimeout = 0<br />
<br />
da.SelectCommand = cmdselect<br />
<br />
<br />
Try<br />
dsdata = New DataSet<br />
<br />
con.Open()<br />
<br />
da.Fill(dsdata, "Clients")<br />
<br />
con.Close()<br />
<br />
Catch ex As Exception<br />
<br />
MsgBox(ex.Message)<br />
<br />
<br />
End Try<br />
<br />
Return dsdata<br />
<br />
End Function<br />
<br />
And am binding the returned dataset like this
<br />
Dim dsdata As New DataSet<br />
dsdata = GET_Email()<br />
<br />
ListBox1.DataSource = dsdata<br />
<br />
ListBox1.DisplayMember = "Client_Email"<br />
<br />
This code is in Form load event , i dont get an Error, but the Listbox displays with the following message inside the listbox
System.Data.DataviewManagerListItemTypeDesriptor .
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Hello Vuyiswa,
You need to bind the Listbox to specific column in a table inside that DataSet. You cannot bind it
directly to a dataset.
Try this code snippet.
Dim dt As DataTable = dsdata.Tables(0)<br />
ListBox1.DataSource = dt<br />
ListBox1.DisplayMember = "<name of="" the="" column="">"</name>
I believe this should resolve your issue.
Regards,
Allen
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
hello C1AllenS
Thanks you are star
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
To expand a bit... A DataSet is a collection of DataTable and DataRelation objects. You cannot bind a ListBox directly to a DataSet. You must bind it to the DataTable in the DataSet.
|
|
|
|
|
Thanks Dave
You are a Star.
<br />
<br />
ListBox1.DataSource = dsdata.Tables("Clients")<br />
ListBox1.DisplayMember = "Client_Email"<br />
<br />
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Hello All
I need a Software that can display all the combinations for a given number of digits, especially 14 digits and each digit has 10 choices from 0 to 9.
Suppose that we have one digit so we will have 10 different combinations "10^1". Now suppose that we have two digits then we will have 100 different combinations "10^2", starting from 00 …. 99.
The software that I need is to display all the combinations for a 14 digits number, then we will have 10^14 different combinations starting from 00 00 00 00 00 00 00 to 99 99 99 99 99 99 99.
Thanks and Regards
yasso
|
|
|
|
|
For idx As Int64 = 0 to 99999999999999<br />
'Display the value of idx<br />
Next
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
I suggest doing your own homework.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hi,
I have a public sub in a module that inserts text into a textBox on another class(form). This sub is called when the data from a RS-232 (serial port) comes.Because the serial port is opened on another thread, a cross-thread InvalidOperationException is raised when I try to insert text into a text box.
In a class I would do this:
Private Delegate Sub procStatusDelegate(ByVal msg As String, ByVal clear As Boolean, ByVal noviRed As Boolean)
Public Sub procStatus(ByVal msg As String, ByVal clear As Boolean, ByVal noviRed As Boolean)
if me.invokeRequired then
Dim procStatusDele As New procStatusDelegate(AddressOf procStatus)
Dim params(2) As Object
params(0) = msg
params(1) = clear
params(2) = noviRed
me.invoke(procStatusDele,params)
else
' do normal stuff
end sub
But because module doesn't have Me. namespace, Me.invoke isn't available so the question is what is the alternative?
Thank You!
|
|
|
|
|
I might be way off course here but this is what I'm thinking...
Regardless if you used a module or a class with a shared routine, you would need to pass a delegate into either from the form so that you can populate the textbox. So if you did this, upon creating the instance of the form, then the module wouldn't need the ability to do the "invoking" because it could just call the delegate that it was holding on to. The above routine is correct if that is the routine inside the form that the module would call. The 'do normal stuff' would be where textbox.text = ?? would occur...
Just a thought....
You could remove all of this
Dim procStatusDele As New procStatusDelegate(AddressOf procStatus)
Dim params(2) As Object
params(0) = msg
params(1) = clear
params(2) = noviRed
me.invoke(procStatusDele,params)
and do this
me.invoke(New procStatusDelegate(AddressOf procStatus),new object() {msg,clear,noviRed})
less operations the better 
nathan
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
modified on Tuesday, February 05, 2008 10:00:25 AM
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
