Créér/modifier un fichier sur un serveur ftp

Public Class Form1
    'Fonction lisant une string
    Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Short, ByVal lpFileName As String) As Integer

    'Fonction écrivant une string
    Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Long

    Function Get_Private_Profile_String(ByVal cAppName As String, ByVal cKeyName As String, ByVal cKeyDefault As String, ByRef cKeyValue As String, ByVal cProfName As String) As Integer
        '
        ' LIRE UNE STRING
        ' Parametres:
        ' cAppName Correspond à [Rubrique]
        ' cKeyName Nom de l'entrée, de la clé
        ' cKeyDefault Valeur par défaut de la chaîne cherchée
        ' cKeyValue Valeur lue en face de l'Entrée ou cKeyDefault si l'Entrée est vide
        ' cProfName Nom du Fichier "INI" Privé
        '
        ' Sortie:
        ' Valeur lue dans cKeyValue
        ' La fonction retourne le nombre de caractères dans cKeyValue
        Dim iReaded As Integer
        Const sLongueur As Short = 255
        If cKeyName = "" Then
            cKeyValue = Space$(1025)
            iReaded = GetPrivateProfileString(cAppName, "", "", cKeyValue, 1024, cProfName)
        Else
            cKeyValue = Space$(255)
            iReaded = GetPrivateProfileString(cAppName, cKeyName, cKeyDefault, cKeyValue, sLongueur, cProfName)
        End If
        cKeyValue = Trim$(cKeyValue)
        Get_Private_Profile_String = iReaded
    End Function

    Function Put_Private_Profile_String(ByVal cAppName As String, ByVal cKeyName As String, ByVal cKeyValue As String, ByVal cProfName As String) As Boolean
        ' ECRIRE UNE STRING
        ' Parametres:
        ' cAppName Correspond à [Rubrique]
        ' cKeyName Nom de l'entrée de la clé
        ' cKeyValue Valeur lue en face de l'Entrée ou cKeyDefault si l'Entrée est vide
        ' cProfName Nom du Fichier "INI" Privé
        '
        ' Sortie:
        ' La fonction retourne True si cela a marché
        Dim Status As Long
        Status = WritePrivateProfileString(cAppName, cKeyName, cKeyValue, cProfName)
        If (Status <> 0) Then
            Put_Private_Profile_String = True
        Else
            Put_Private_Profile_String = False
        End If
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'declaration des variables
        Dim cRubrique As String
        Dim cStat As String
        Dim cValue As Integer
        Dim cPath As String
        Dim istat As Integer
        'entrez les valeurs
        cPath = InputBox("Entrez le chemin du fichier à voir")
        cRubrique = InputBox("Entrez la rubrique dans laquelle se situe l'attribut est situé")
        cStat = InputBox("Entrez l'attribut qui est à afficher")
        'affiche la valeur voulue
        istat = Get_Private_Profile_String(cRubrique, cStat, "", cValue, cPath)
        MsgBox(Trim(cValue))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'declaration variable
        Dim cNewRubrique As String
        Dim cNewStat As String
        Dim cNewValue As Integer
        Dim cNewPath As String
        'entrez les valeurs
        cNewPath = InputBox("Entrez le chemin du fichier à créér/modifier")
        cNewRubrique = InputBox("Entrez la rubrique à ajouter/modifier.")
        cNewStat = InputBox("Entrez l'attribut à ajouter/modifier.")
        cNewValue = InputBox("Entrez la valeur à ajouter/modifier.")
        'ajouter/modifier la valeur
        Dim bOk As Boolean
        bOk = Put_Private_Profile_String(cNewRubrique, cNewStat, cNewValue, cNewPath)
    End Sub
End Class

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'declaration variable
        Dim cNewRubrique As String
        Dim cNewStat As String
        Dim cNewValue As Integer
        Dim cNewPath As String
        'entrez les valeurs
        cNewPath = InputBox("Entrez le chemin du fichier à créér/modifier")
        cNewRubrique = InputBox("Entrez la rubrique à ajouter/modifier.")
        cNewStat = InputBox("Entrez l'attribut à ajouter/modifier.")
        cNewValue = InputBox("Entrez la valeur à ajouter/modifier.")
        'ajouter/modifier la valeur
        Dim bOk As Boolean
        bOk = Put_Private_Profile_String(cNewRubrique, cNewStat, cNewValue, cNewPath)