Accueil > Forum > > > > Copier fichier vers HTTP
 Copier fichier vers HTTP
mardi 12 août 2008 à 14:04:45 |
Copier fichier vers HTTP
spawnrad
|
Bonjour, J'ai trouvé ce programme qui permet de copier un fichier et de le mettre dans un serveur http. En entrer j'indique le fichier (local) a envoyé et l'adresse du serveur http. et le fichier est bien envoyé vers le serveur http. J'aimerai changer ce code pour que ca prenne automatiquement tous les fichiers du répertoire et que ca les copies vers le serveur. quelqu'un pourrait m'aider à modifier ce code s'il vous plait. Je connais absolument rien en vbscript  . Citation: Dim ArgObj, sfileName, sUrl
Set ArgObj = WScript.Arguments
'///Parametre en ligne de commande MSDOS
'sfileName = ArgObj(0)
'sUrl = ArgObj(1)
'///Parametre avec un prompt
sfileName = inputbox("Le chemin du fichier.", "FILENAME","C:\vbscript\copy\")
sUrl = inputbox("Entrer l'url de destination", "URL","http://prj-hozsql/")
sData = getFileBytes(sfileName, 1)
'///ouverture du fichier
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
'///on stock le contenu du fichier
Set f = fs.OpenTextFile(sfileName,ForReading,false,TristateMixed)
'sData = f.ReadAll
f.Close
'///Si fichier XML on enléve les caractéres barbarique
if fs.GetExtensionName(sfileName)="xml" then
sData = Right(sData, len(sData) - 3)
end if
'msgbox sData
'///nom du document
sfileName= mid(sfileName, InstrRev(sFileName,"\")+1,len(sfileName))
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
'///url de destination avec le nom du fichier
strURL = sUrl & sFileName
xmlhttp.Open "PUT", strURL, false
'///on envoie le contenu du fichier
xmlhttp.Send sData
set xmlhttp=Nothing
'msgbox sData
function getFileBytes(localFileName, sFileType)
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
if sFileType="1" then
objStream.Type = 1 ' adTypeBinary
else
objStream.Type = 2 ' adTypeText
objStream.Charset ="ascii"
end if
' objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile localFileName
getFileBytes=objStream.Read
objStream.Close
Set objStream = Nothing
end function |
Je vous remercie d'avance pour votre aide. Spawnrad |
|
Cette discussion est classée dans : fichier, set, sfilename, sdata, objstream
 Répondre à ce message
 Sujets en rapport avec ce message
transfert de données d'un fichier texte a excel [ par xaeris ]
Bonjour tout le monde!! Je suis débutant en programmation VB Excel et je dois réaliser une procédure que je n'arrive pas a faire. La situation :
vbscript [ par marie059 ]
Bonjour je dois crée un script en vbscript qui dans un dossier et sous dossier choisi authorisera uniquement la lecture pour les fichiers dont la dat
[VBS] Code Error 800A0401 - Expected end of statement [ par neo2k2 ]
Bonjour à toutes et tous! J'ai un petit souci avec un programme en VBS que je développe pour mon travail. Le programme sert à tester l'existence d
VBS - Comment passer outre l'erreur 800a0046 acces refusé [ par jakoo9 ]
Bonjour,Je cherche a lire plusieurs fichiers a l'aide d'un script VBS dans un répertoire, seulement je n'ai pas accès a tous les fichiers (permission
VB 6 accès fichier excel [ par tromedlov22 ]
Mehdi Bonjour tout le monde!! Voilà, je suis débutant en VB et j'essai de faire une appli en VB avec 2 form : - sur le 1er j'ouvre un fichier xls et j
URGENT - AVANT 13h... Executer une commande dos avec un paramétre [ par neocam ]
Bonjour a tous, Pour etre bref, mon but: Je parcours un dossier contenant des pdf et j'exécute la commande "pdftotext nomfic" pour chaque fichier afin
Objet requis + nom de fichier ? [ par pyb54 ]
Bonjour à tous, voila j'ai un problème avec un code en vbscript, censé copier le contenu de plusieurs fichiers situés dans un même dossier dans un nou
Utiliser fichier .Dat dans VB6 [ par Phalls ]
Bonjour à tous,Je dois réaliser un petit programme Visual basic permettant de comparer deux données. Une se trouvant dans un fichier.Dat et l'autre da
VBA Excel copier cellulles d'un fichier fermé [ par confortola ]
J'ai trouvé le moyen de copier les cellules d'un fichier fermé par cette macro*********************<pre class="alt2" dir="ltr" style="border: 1px inse
Génération de fichier de log [ par bozoteam01 ]
Bonjour, Je travail sur un script pour l'automatisation de la configuration des adresses de dns pour plusieurs serveurs. Le script fonctionne bien je
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
 FAIRE UN EXECUTABLEFAIRE UN EXECUTABLE par ossama261988
Cliquez pour lire la suite par ossama261988
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|