Bonjour à tous,
J'ai un form dans lequel je souhaite qu'un user puisse uploader un fichier vers le serveur tout en renseignant le chemin d'accès (sur serveur) à ce fichier dans la base. Pour ce faire j'ai déjà récupéré les chemins source et le nom de fichier source...
Tout fonctionne sauf là:
J'ai le code suivant dans mon module UploadPDF:
J'ai cependant une erreur Type d'argument ByRef incompatible sur Destination dans le code
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 Option Compare Database Public Function m_file_copy(SrcFile As String, DstFile As String) Const c_Len = 32000 Dim SrcNum As Integer, DstNum As Integer, f_len As Long, f_end As Long, I As Long Dim X As String * c_Len SrcNum = FreeFile() Open SrcFile For Binary Access Read As #SrcNum Len = c_Len DstNum = FreeFile() Open DstFile For Binary Access Write As #DstNum Len = c_Len f_len = LOF(SrcNum) For I = 1 To (f_len \ c_Len) Get #SrcNum, , X Put #DstNum, , X Next I f_len = (f_len Mod c_Len) If f_end > 0 Then Get #SrcNum, , X Put #DstNum, , X End If Close #SrcNum Close #DstNum End Function Function Start() Dim Source As String Source = CheminPDF Destination = "L:\Mondossier\Monsousdossier\Documentations\" & " & NomFichierPDF & """ Call m_file_copy(Source, Destination) End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part Call m_file_copy(Source, Destination)
A mon avis j'ai un bug dans ma syntaxe à
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Destination = "L:\Mondossier\Monsousdossier\Documentations\" & " & NomFichierPDF & """
Bon WE
A+
Partager