vb.net 2008 Make folder in FTP server

hi oobayly,

i need it can auto make the year folder is the folder not exist

The folllowing site has code on how to check if an FTP directory exists:
http://www.example-code.com/vbdotnet/ftpDirectoryExists.asp

You can then just do the create if doesn't.  As for auto-generating it, if you mean on the year 2010 (as in when the calendar changes) you would need to have a service and constantly poll the date.  Not really efficient.  Just anytime your app runs check the date, if it's 2010 then check if the 2010 folder exists (using the link above), if not create the directory.

hi oobayly,

i try your code. don't work. how to include the below code togehter.

My.Computer.Network.UploadFile("C:\My Documents\Order.txt", _
  string.Format("ftp://www.cohowinery.com/{0:yyyy}/upload.aspx", DateTime.Now), _
  "","",True,500)

hi oobayly,

when i change the system date to 2010 but it didn't create the 2010 folder

That's because that code doesn't contain anything to tell it (that I can see) that if the date is 2010 create the folder.  You would either need your app to be a service and constantly check the date, or upon loading the app do a check (obviously best to use a Config file for the date rather than hard coding the string).    

However if you definately want it to constantly check the date (so that as soon as the new year comes, it generates the folder) I recommend you create a service.  Set a timer for X hours/minutes and call the method below.

    Public Function CheckDate()
        If (Date.UtcNow.Year = 2010) Then
            'Call the method to create the file
        End If
    End Function

                                              

1:
2:
3:
4:
5:

@angus_young_acdc
The declaration of directoryName  uses string.format to get the year component of current date, so when it's run in 2010, it should create the correct folder.
Dim directoryName As String = String.Format("ftp://www.cohowinery.com/{0:yyyy}/", DateTime.Now)

@aarontham
Instead if changing your system date for testing, it'd be better to replace
DateTime.Now with new DateTime(2010, 1, 1)
Can you step through the code, and check the value of createDirectory  at line 34?

oobayly:

sorry my mistake it work now. in which line i should add below code?

My.Computer.Network.UploadFile("C:\My Documents\Order.txt", _
  string.Format("ftp://www.cohowinery.com/{0:yyyy}/upload.aspx", DateTime.Now), _
  "","",True,500)

i also need to add date,months and year in front of the file that i upload. i try below code but it give wrong date and month.
My.Computer.Network.UploadFile("C:\My Documents\Order.txt", _
  string.Format("ftp://www.cohowinery.com/{0:yyyy}/{0:mmddyyyy}upload.aspx", DateTime.Now), _
  "","",True,500)

Well, I'd suggest you put the create directory code into a method called something like
private sub CreateRemoteDirectory(directoryName As String, userName As String, password As String)
end sub

Then call that subroutine before using the My.Computer.Network.UploadFile

As for adding further directories problem:
The Month format is MM (mm is minutes), however I'd strongly recommend using the following format as the files will be sorted by date
Dim directoryName As String = String.Format("ftp://www.cohowinery.com/{0:yyyy}/{0:yyyyMMdd}upload.aspx", DateTime.Now)

' Credentials
Dim userName As String = ""
Dim password As String = ""
 
' Create the Remote directory
Dim directoryName As String = String.Format("ftp://www.cohowinery.com/{0:yyyy}/", DateTime.Now)
CreateRemoteDirectory(directoryName, userName, password)
 
' Upload {0:yyyyMMdd}upload.aspx
Dim remoteFilePath As String = String.Format("{0}{1:yyyyMMdd}upload.aspx", directoryName, DateTime.Now)
My.Computer.Network.UploadFile("C:\My Documents\Order.txt", remoteFilePath, userName, password, True, 500)

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11: