uploader les fichiers en vbscript

**regisyves** · 20/05/2010, 17h26

Bonjour, ça fait des jours que je cherche sur le net comment faire pour uploader des fichiers sur un serveur IIS . Je ne voudrais pas le faire en asp mais uniquement en vbscript car je suis en stage et mon maître de satge me demande de le faire absolument en vbscript .
Quelqu'un peut m'aider ?

**pitchalov** · 21/05/2010, 11h05

Salut,
Si tu as accès au système de fichiers de ton serveur, penche toi vers l'objet FileSystemObject, qui permet de réaliser des copies et beaucoup d'autres choses. La FAQ VBScript t'aidera à réaliser ta copie.
Après si tu désires utiliser les fonctionnalités de IIS, alors je ne peux pas t'aider, je connais pas.

**regisyves** · 24/05/2010, 16h39

je voudrais le formulaire en utilisant un formulaire html

je voudrais uploader mon fichier à l'aide d'un formulaire html et traiter les données avec vbscript

**_xme_** · 25/05/2010, 10h57

La solution proposé de pitchalov est à mon avis totalement faisable.

Le plus simple à mon gout serait de faire une page internet, servant d'interface. Tu peux utiliser du javascript ou du vbs par exemple pour faire de l'exploration et trouver le fichier que tu veux up. Tu peux ajouter des champs à ton formulaire tel que le nom sur le serveur etc. Puis tu relis ton bouton submit à un fonction vbs qui appelle un script externe vbs.
Dans ce script tu utilises le FileSystemObject et tu fais FileSystemObject.CopyFile avec l'adresse de ton serveur pour envoyer ton fichier.
Je pense que ca marche bien car perso, j'ai déjà fait un script se connectant régulièrement sur un serveur pour récupérer une bdd et je n'ai pas eu trop de soucis. Ce qui est plus chaud, c'est si tu essayes de gérer les problèmes de recopie ou les coupure de réseau

**regisyves** · 26/05/2010, 11h23

J'essai de copier ce fichier vers D:\RECEPTION\ mais ça ne marche pas .
pouvez vous me montrer l'erreur

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
<body>
<script language="vbscript" type="text/vbscript">
sub valider_form()
alert  form1.fichier.value
document.write form1.fichier.value 
dim fso 
rem instanciation
Set fso = CreateObject("Scripting.FileSystemObject")
rem copie du fichier de la source vers la destination 
set origine= fso.getfile(form1.fichier.value)
origine.copy("D:\RECEPTION\")
end sub 
</script>
 
 
<table align="center" width="100%">
<tr bgcolor="#249BFF"><td  colspan="2" align="left" class="deco_upload">Envoyez votre fichier excel</td></tr>
<form  method="post" enctype="multipart/form-data" name="form1" onsubmit="valider_form()">
<tr><td width="52%" align="right"><input type="file" name="fichier"  class="input_upload2"/></td>
<td width="48%" align="left"><input type="submit" name="envoyer" value="envoyer"  class="input_upload"/></td></tr>
</form>
</table>

**_xme_** · 27/05/2010, 12h04

Bonjour aurais-tu une erreur plus précise?
Je regarde ton problème mais la prochaine fois essaye de te forcer à présenter un peu mieux plz, c'est illisible

Question d'avance a quoi correspond ton rem ?
Et n'aurais tu pas par hasard copié du code VBA?

edit :
tu vois l'avantage si tu présentais correctement c'est que déjà d'office j'aurais vu que ton html n'était pas bon
on ne déclare pas une cellule d'un tableau juste pour mettre un bouton ...
de plus la balise form de mémoire doit être dans une balise td ..

edit2 as tu test si l'appel de fonction marchait avec ton alert?

**_xme_** · 27/05/2010, 14h45

Bonjour
Voici un code exemple qui fait à peu près tout ce que tu as demandé
Attention je ne sais pas pourquoi il ne marche pas sous firefox mais très bien sous IE7
Je pense que ça vient des config de sécurité mais j'ai pas cherché plus

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
<html> 
	<HEAD> 
		<TITLE>Simple copie</TITLE>
	</HEAD> 
	<body>
		<script language="VBScript">  
			Public Function envoyer_OnClick()
				MsgBox "envoyer_OnClick"
				Msgbox form1.fichier.value
				Msgbox "test"
				Msgbox document.form1.fichier.value
				ind=InStrRev(document.form1.fichier.value, "\")
				Msgbox ind
				'On retire le nom du script
				racine=Left(document.form1.fichier.value,ind)
				Msgbox racine
 
				Set FSCopie = CreateObject("Scripting.FileSystemObject")
				FSCopie.CopyFile document.form1.fichier.value, racine & "\test\test.xls", true
				Msgbox "yata"
			End function 
		</script>
		<div align="center" >
			<table width="100%">
				<tr bgcolor="#249BFF">
					<td><div align="left" >Envoyez votre fichier excel</div></td>
				</tr>
				<tr>
					<td width="52%" align="center">
						<form name="form1" method="post" enctype="multipart/form-data"">
							<input type="file" name="fichier" />
						</form>
							<input type="submit" name="envoyer" value="envoyer" />
					</td>
				</tr>
			</table>
		</div>
	</body>
</html>

voila si t'as des questions, je suis dans le coin

(attention ce code copie le fichier dans un sous dossier nommé arbitrairement test)
Il manque entre autre les tests de si le fichier existe, si le dossier cible existe etc....
je te laisse chercher un peu

**Fredledingue** · 30/05/2010, 23h49

Le VBS ne marche pas avec FireFox parcequ'il n'ont pas le droit d'utiliser cette technologie, propriété exclusive de M$.

De toute façon à partir du moment où vous utilisez FileSystemObject,vaut mieux le faire en HTA.

**regisyves** · 31/05/2010, 12h42

ton code ne marche pas et à quoi sert ton test.xls

**_xme_** · 07/06/2010, 12h49

@Fredledingue merci pour cette précision, j'y avais même pas pensé

@regisyves, si tu ne cherches pas un petit peu, je ne vais pas pouvoir t'aider beaucoup

(je m'investis autant que le demandeur

)
Le code que je t'ai fournis fonctionne très bien chez moi, le truc est juste de comprendre comment il marche

Oui il ne fait par encore ce que tu as demandé car il suffit de le paramétrer
(Choisir le dossier de sortie, et choisir le nom de fichier de sortie)
Je pense qu'il est totalement possible de comprendre comment les changer

Comme tu l'as vu je fais appel à un test.xls (excel) et ben justement c'est le nom de fichier de sortie que j'ai choisi
et "\test\test.xls" veut seulement dire que j'avais crée un dossier "test" dans lequel le fichier je copiais le fichier "test.xls"

dis moi si tu ne comprends pas et ce que tu as fais

uploader les fichiers en vbscript

VBScript

Discussions similaires

Partager

Partager