How to create directory on the FTP Server ?

[coolestavi007]

Hi,
I have to create directories on the FTP server. I have tried directory.exists but it doesnt work.Any other way to create directory on the server.Please help me.

[joedeene]

what about this Net.WebRequestMethods.Ftp.MakeDirectory?

of course you'd have to set an instance to net,ftpwebrequest and set the method to makedirectory(first one up top).

soo e.g.

 
 Dim myftprequest As Net.FtpWebRequest = CType(Net.FtpWebRequest.Create(host), System.Net.FtpWebRequest)
        myftprequest.Credentials = New System.Net.NetworkCredential(username, password)
        myftprequest.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
'code to upload it
 

[coolestavi007]

Hi
I have to make directory and subdirectory one into another.
say creating a Avi directory then in that i have to create another directory kavi in that subdiretcory another and so on.,.....

plz help me out reg this.

[coolestavi007]

Thanks for the reply.....
it works ......
but now i have to create multiple subdirectories one into another...
say
kavi(subdirectory)--->avi(subdirectory)---->and so on......

[Curtis Rutland]

I'm sorry, but figure it out for yourself. If you have the code to make a directory, the code for a subdirectory is no different, you just have to change the target.

You're not going to get everything spoon fed to you here.

[joedeene]

exactly as insertalias said, we cant give you everything, im here to help although i did give you a code sample to get you started, i can continue to giving you answers because i dont know if your just copying and pasting or learning, and plus you have to show us *some* code of yours to get further help, so i will ask how do you want to make the subdirectories ? and what have you done so far, with helping yourself to make this ?

joedeene

[coolestavi007]

okk.....here is the code for FTP ....It is working fine ....but when I am trying to create subdirectories ,it gives an error..

------------------------------------------------------------------------------------------------------------------
Shared Sub main2(ByVal zipdir, ByVal systemname)

'FTP creadentials'
Dim servertemp As String = "ftp://hydhtc25116/"
Dim username As String = "hydhtc25116\root"
Dim password As String = "infy@123"
Dim host As String = servertemp

'Renaming the zip file as the current system date'
Dim filename As String
filename = zipdir
Dim New1 As String
Dim month1 As String
Dim year1 As String
Dim day1 As String
day1 = DatePart("d", DateTime.Now)
month1 = DatePart("m", DateTime.Now)
year1 = DatePart("yyyy", DateTime.Now)
New1 = systemname + "_" + day1 + "-" + month1 + "-" + year1

'Declaring the FTP zip filename as the current system Date'
Dim remoteFile As String = "/" & New1 & ".zip"


'1. Create a request: must be in ftp://hostname format'
Dim URI As String = host & remoteFile
Dim ftp As Net.FtpWebRequest = CType(Net.FtpWebRequest.Create(URI), Net.FtpWebRequest)

'2. Set credentials

ftp.Credentials = New System.Net.NetworkCredential(username, password)

'3. Settings and action

ftp.KeepAlive = False

'4. we want a binary transfer, not textual data

ftp.UseBinary = True

'5. Define the action required (in this case, download a file)

ftp.Method = System.Net.WebRequestMethods.Ftp.UploadFile

'6. Reading the content of the zip file'

Dim bFile() As Byte = System.IO.File.ReadAllBytes(filename & "/" & New1 & ".zip")
Dim clsStream As System.IO.Stream = ftp.GetRequestStream()

'Writing the content of the file'
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()
clsStream.Flush()



End Sub
-----------------------------------------------------------------------------------------------------------------
here is the code for logic of directory which i want to create on server...


---------------------------------------------------------------------------------------------------------

Sub Main()
Dim str As String = "C:\ProgramFiles\Ext\ABC\Stv\text.txt"
Dim newstr As String = str.Substring(0, 1)
Console.WriteLine(newstr)
Dim new1 As String = str.Substring(3, str.LastIndexOf("\") - 2)
Console.WriteLine(new1)
If Not Directory.Exists("C:\C\" & new1) Then
Directory.CreateDirectory("C:\C\" & new1)
End If


End Sub

--------------------------------------------------------------------------------------------------------------