Discussion :

[shibby_]

Bonjour,

J'aimerais savoir si il est possible de créer un dossier via vb6 sur un serveur ftp.
Pour le moment ma connexion fonctionne et j'arrive à uploader mes fichiers. Mais j'aimerais avant toute chose créer des dossiers spécifique pour pouvoir ranger les fichier que j'uploaderai par la suite.

Merci de votre réponse.

[melancolie]

bjr.
je sais qu'il faut utiliser l'instruction createfolder pour créer un dossier mais sur un serveur ftp, je ne sais pas s'il faut tenir compte des droits et autorisations

[shibby_]

J'ai déjà essayé cette instruction, mais la création revient en erreur.

[SfJ5Rpw8]

...
Pour le moment ma connexion fonctionne et j'arrive à uploader mes fichiers..

et tu utilise quel procédé pour cela (il y as tout un tas de manière d'uploader un fichier en ftp ...)

[shibby_]

Voici la fonction que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Function Copy_FilesListAbs_On_DocInfoFileSystemServerPath() As Boolean
    'Locals variables
    Dim fso             As Object
    Dim iCounter        As Integer
    Dim iCounterKey     As Integer
 
On Error GoTo ErrorReturn
    Rem START CHETAN ON 21 APRIL 2011 FOR DOCINFO V2
    '===============================================================
    Rem Local Variables
    Dim lngSession As Long
    Dim lngConnection As Long
    Dim bRet As Boolean
    Dim strLocalFileName As String
    Dim strRemoteFileName As String
    Dim blnResult As Boolean
 
    Dim intPort As Integer
    Dim strServer As String
    Dim strUserName As String
    Dim strPassword As String
    Dim strFolderPath As String
    Dim sDestinationPath As String
    Dim sTempArray
 
    Rem HARDCODED VALUE FOR FTP CONNECTION
    strServer = "yvas4330.inetpsa.com"
    strUserName = "*************"
    strPassword = "*************"
    strFolderPath = "baie/unm00/"
 
    Rem Open an Internet Explorer.
    lngSession = InternetOpen("vb wininet", 0, vbNullString, vbNullString, 0)
    If lngSession = 0 Then
        'Error in Opening Internet Explorer.
        Copy_FilesListAbs_On_DocInfoFileSystemServerPath = False
        Exit Function
    End If
 
    Rem Set Connection with FTP Site.
    intPort = 0
    lngConnection = InternetConnect(lngSession, strServer, intPort, strUserName, strPassword, INTERNET_SERVICE_FTP, 0, 0)
    If lngConnection = 0 Then
        'Error in Connection with FTP Site.
        Copy_FilesListAbs_On_DocInfoFileSystemServerPath = False
        Exit Function
    End If
 
    Rem Send file to FTP Server.
    iCounterKey = 0
 
    'Opening the file
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    'Reading the information
    For iCounter = 0 To UBound(g_sFilesPathAbsFile)
        'Check problem
        If Left(g_sFilesPathAbsFile(iCounter), 10) = "S:\sysRoot" Then
            'fso.CopyFile Replace(g_sFilesPathAbsFile(iCounter), "/", "\"), Replace(g_sFilesPathListOnFileSystem(iCounterKey), "/", "\"), True
            'iCounterKey = iCounterKey + 1
            strLocalFileName = g_sFilesPathAbsFile(iCounter)
            strRemoteFileName = strFolderPath & ""
        'Build complete destination path
            sTempArray = Split(g_sFilesPathAbsFile(iCounter), "\")
            sTempArray = Split(sTempArray(UBound(sTempArray)), "/")
            sDestinationPath = strFolderPath & LCase(sTempArray(UBound(sTempArray)))
 
            blnResult = FtpPutFile(lngConnection, strLocalFileName, sDestinationPath, 1, 0)
            If blnResult = 1 Then
 
                'Nothing is here as uploading multiple files
            Else
                ' if upload is failed the error message and go for next file.
                MsgBox "ERROR in uploading file on FTP. "
 
            End If
        End If
    Next

Et c'est à l'intérieur de cette ci que j'aimerais intégrer la création de dossiers.

[SfJ5Rpw8]

et tu as essayé d'intégrer :

FtpCreateDirectory Function

[shibby_]

Merci,

J'ai essayé avec cette fonction que je ne connaissais pas. ça fonctionne