Bonjour,
je souhaite pouvoir uploader tout le contenu d'un répertoire sur mon serveur. j'ai donc créé un FileUpload pour sélectionner le premier Fichier.
Avec le .filename je récupere le chemin entier de la première photo. Je splite pour récupérer que le répertoire et j'insere toutes les photos dans un tableau de file().
Comment uploader tous ces fichiers maintenant? Merci pour votre aide
Dim tbl() AsString
Dim
filepath
As
String
=
"c:\temp"
Dim
uploadedFiles
As
HttpFileCollection = Request.Files
Dim
i
As
Integer
= 0
Dim
indice
As
Integer
Dim
repertoire
As
String
repertoire =
""
Do
Until
i = uploadedFiles.Count
Dim
userPostedFile
As
HttpPostedFile = uploadedFiles(i)tbl = Split(userPostedFile.FileName,
"\"
, -1, CompareMethod.Text)
For
indice = 0
To
tbl.Length - 2repertoire = repertoire & tbl(indice) &
"\"
Next indice
Dim
dir
As
New
IO.DirectoryInfo(repertoire)
Dim
nb_images
As
Integer
Dim
file()
As
IO.FileInfo
Dim
trouve
As
Boolean
trouve =
False
indice = 0
file = dir.GetFiles(
"*.jpg"
)nb_images = file.Length