Profil de cs_jeanmarc - CodeS SourceS

Déconnecter un lecteur réseaux [Résolu]

Bonjour j'utilise ce script fait en vbs pour connecter un lecteur réseau : Set objNetwork = Wscript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive "z:", "[file://PC/Partage1 \\PC\Partage1]" Pour supprimer un lecteur réseaux j'ai tester en faisant comme cela : Set objNetwork = Wscript.CreateObject("WScript.Network") ... Lire la suite

Bonjour, Effectivement, aieeeuuuuu, tu as raison (c'est précisé dans la doc de la méthode). Je n'ai pas testé la partie mappage de chez moi vers mon boulot. J'ai simplement testé la partie icone. Avec ça, Steph115 a tous les éléments pour valider son topic.

Je viens de tester la suppression d'un raccourci. Il y a plusieurs façons de créer un raccourci. set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\nom visuel de l'icone.lnk") oShellLink.TargetPath = WScript.ScriptFullName oS...

Bonsoir, En regardant la doc, je viens de tester la création du raccourci icône. Ca marche. Maintenant, il suffit de trouver la méthode pour supprimer ce raccourci !!! Ci-dessous, création du raccourci: set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") se...

Bonjour, [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsobjwshnetwork.htm WshNetwork, objet] | [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsmthenumnetworkdrives.htm EnumNetworkDrives, méthode] | [mk:@MSITStore:D:\Mes%20scripts%20vbs\sources-vbs\SCRIPT56.CHM::/html/wsmthmapnetworkd...

definir le dossier de travail du script. [Résolu]

Bonjour à tous, j'ai un script à faire et j'aimerais pouvoir le lancer de mon PC et qu'il aille travailler sur un disque réseau du bahut. Quelle commande utliser pour lui dire de travailler sur le disque [file://serveur1/partage \\serveur1\partage] ? Je dois ensuite récupérer des infos sur le fichiers de ce dossier. Je sais que ... Lire la suite

Votes

Bonsoir, Il faut utiliser la fonction "DateLastModified" Exemple: Dim Path Path = "c:\Test" MsgBox ShowFolderList(Path),vbmessage,"Fichiers présents dans le répertoire" Function ShowFolderList(strPath) Dim fso, Dossiers, fic, fichiers, strListe, f, fdate, fname, dtDiffFile Set fso = CreateObject("Scripting.FileSystemObjec...

senkeys

bonjour tout le monde. svp j'aimerai savoir quand je peux utiliser: sendkeys {(home)+(end)}. merci

Bonjour, Belle réponse de Renfield !!! + sérieusement, j'ai mis la doc de SendKeys au topic: http://www.vbfrance.com/forum.v2.aspx?ID=600140

Question rapide, forcer une touche clavier [Résolu]

Bonjour à tous, J'aimerais pouvoir faire un petit programme pouvant tapper une touche à ma place à tout les x secondes. L'utilation d'un timer n'est pas un mystère pour moi, mais comment dire au programme d'appuyer sur une touche pour moi? Et puis, (facultatif), comment forcer un alt+tab par exemple? ou shift+X, etc? Merci à tous Lire la suite

Votes

Bonjour, Exemple de la méthode "SendKeys". Dim Fso, path, fichier, fichiers, WshShell path = "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires spécifiques" Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set dossier = fso.GetFolder(path) Set fichiers = Dossier.Files...

Help boucles

quelq'un aurait une explication niveau debutant pour les boucle while et do ... loop until ??? merci bienhttp://bicrossmouscron.skyblog.com

Bonjour, 1) Je lis tout mon fichier, le séparateur de mot est " " (espace) Set ObjTextStream = Fso.OpenTextFile(Path & Fichier_Entree1, 1) Do While Not ObjTextStream.AtEndOfStream strtmp = split(ObjTextStream.readline," ") For i = 0 to Ubound(strtmp) ' MsgBox "lecture du mot " & strtmp(i) If strtmp(i) = "Inco...

retarder le lancement d'un logiciel [Résolu]

bonjour, j'ai un petit soucis je voudrai retarder le demarrage d'un logiciel (45sec a peu pres) apres le lancement de windows, je cherché un logiciel pouvant faire cela et on ma conseiller un script visual basic, est ce que quelqu'un a une idée merci

Votes

Bonjour, Exemple pour ouvrir un doc et l'imprimer. Dim Fso, path, fichier, fichiers, WshShell path = "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires spécifiques" Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set dossier = fso.GetFolder(path) Set fichiers = Dossi...

Bonsoir, Exemple de timer, en VBS: Dim WshShell Set WshShell = CreateObject("WScript.Shell") WScript.Sleep(3000)

Obtenir la date d'un fichier [Résolu]

SLt a tous, J'ai un gros problème, j'aimerais savoir comment on peut obtenir la date de modification d'un fichier pour ensuite pour pouvoir la comparer à une autre. Merci de vos réponses.

Votes

Bonsoir, Exemple avec DateLastModified Dim Path Path = "d:\KRNSDE" MsgBox ShowFolderList(Path),vbmessage,"Fichiers présents dans le répertoire" Function ShowFolderList(strPath) Dim fso, Dossiers, fic, fichiers, strListe, f, fdate, fname, dtDiffFile Set fso = CreateObject("Scripting.FileSystemObject") Set Dossiers = fso....

Supprimer tous les fichiers antérieurs à une date

Bonjour, Est-ce que quelqu'un pourrais me dire le code pour supprimer tous les fichiers d'un lecteur (ex: E:\) ,contenu dans plusieurs niveaux de répertoire, antérieurs à une date précise. Merci d'avance. Ben

Bonjour, Exemple, simple, en VBS, mais qui peut-être inséré dans VBA. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 1) Tous les jours ouvrés, sur GCOS7, via l'automate SKEmatix HBCM, ' création de x fichiers (CAST-CRESDE-CDF vl=%aaqqqln) ' 2) Transfert des fichiers de GCOS7/Diane XTA63 vers la station ARNEB,...

Calcule d'une durée entre 2 dates [Résolu]

Bonjour, J'ai deux dates stockées dans une base de données sous le format : JJ/MM/AAAA hh:mm Ce n'est pas un probleme pour les recuperer et inserer dans une textbox mais je vois pas du tout comment calculer l'ecart entre les 2 dates. J'aimerais savoir calculer la duree entre ces 2 dates en enlevant le dimanche, tout ceci en VB.net... Lire la suite

Bonjour, Il faut utiliser DatePart Exemples ci-dessous: Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") xDate = InputBox("Saisir la date de retraite sous la forme jj/mm/aaaa"," Décompte Retraite !!!!","30/06/2006") 'xDate = "30/06/2006" 'date de jean-marc j1 = DatePart("w", xDate) j2 = Array("","...

Tester si un REPERTOIRE existe. [Résolu]

Bonjour à tous ! Je désire tester si un repertoire existe lorsque je clique sur un bouton, j'ai donc le code suivant : Private Sub Command1_Click() Dim reponse As Integer If Dir("c:/nouveau_dossier/") "" Then MsgBox ("Existe") Else MsgBox ("Existe pas") reponse = MsgBox("Creer ?", vbInformation ... Lire la suite

bonsoir, exemple en vbs (valable en vba) pour tester la presence d'un path Dim wRepDest1, fso wRepDest1 = "c:\Archive-xxxx" Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(wRepDest1) Then Set f = fso.CreateFolder(wRepDest1) msgBox "Création du dossier "&f&" effectuée.",vbInformation El...

Céation/lecture répertoire en vba [Résolu]

Bonjour! Je travaille sur access 2000 Je veux 1) Ajouter, par exemple, le répertoire "ClientDuMoisOctobre" dans le répertoire "c:\ClientsDe2005" 2)Plus tard afficher à l'écran les fichiers de "c:\ClientsDe2005\ClientDuMoisOctobre" 3) à partir de cette liste ouvrir un fichier sélectionné Toute aide sera grandement appréciée ... Lire la suite

' Test si path "ClientDuMoismm" existe' ' ' conversion du 1er caractère du mois actuel en majuscule Dim m1, m2, mm, path1, path2, dossier, fichiers Dim fso, f1, fichier, Subfichier, Resultat m1 = DatePart("m", Date) m2 = Array("","Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décem...

Bonsoir, J'ai avancé pour "ton" script. J'ai ajouté des tests évidents. C'est écrit en VBS, mais on peux l'insérer dans du VBA. '1) Ajouter, par exemple, le répertoire "ClientDuMoisOctobre" dans le répertoire "c:\ClientsDe2005" '2)Plus tard afficher à l'écran les fichiers de "c:\ClientsDe2005\ClientDuMoisOctobre" ' Test si p...

copy

slt à tous je voudrait savoir comment on fait pour copier un fichier dans un repertoire predefini ; par ex copier le fichier a.vbs qui se trouve dans "C:\test" dans "C:\vbs"

Bonjour, Dim fso, wSrce, wDest wSrce = "d:\test1.txt" wDest = "d:\test2.txt" Set fso = CreateObject("Scripting.FileSystemObject") fso.copyFile wSrce, wDest Set fso = Nothing

Viiiite !!! je dois apprendre à programmer des VBscripts....qq questions non tec

Bonjour à tous, Je dois apprendre à programmer des scripts en VBScript dans le cadre de mon boulot. Je suis informaticien (admin réseau), j'ai des notions correctes en bases de données et qq notions de base sur la prog (à vrai dire, des restes de mes études...mais je sais ce qu'est un "if then else", une variable...) Je ne vai... Lire la suite

Bonsoir, Je pratique, de temps en temps, mais, depuis 2002, le VBS. Je l'utilise, au boulot, pour automatiser et sécuriser des taches dites manuelles (imprimantes, maintenance folders/files, ....). Au niveau doc: - fichier "SCRIPT56" ...la bible du VBS en français (VBS et JS); - fichier "WSH", moyen, en anglais; - le site de l'a...

problème d'envoi de mails

salut à tous, Mon problème c'est que quand j'essai d'envoyer un mail grace a un control winsock il ne se passe rien,dans mon form je met un bouton et un control winsock,le code:Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal Help... Lire la suite

Bonjour, Un script qui marche. Set Msg = CreateObject("CDO.Message") ' pour la configuration du message Set Conf = CreateObject("CDO.Configuration") ' pour la configuration de l'envoi Set Config = Conf.Fields With Config .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true ' Id SSL .Item(...

Script VBS pas trop compliqué... [Résolu]

Bonjour voila je suis admin réseau (he oui ca arrive!!!), la je m'occupe d'un parc de 50 postes ou 400 à 500 personnes se loguent. Bref il arrive parfois que les profils en cache restent sur les disques des postes lorsque il y a un problème de synchronissation avec le serveur, et la longue ca sature les disques... Là ou il y à un rappo... Lire la suite

Votes

Bonsoir,[javascript:Insert_Emoticon('/imgs2/smile.gif'); ] Je viens de rentrer de mon week prolongé et de pondre ton script. Le ' signifie un commentaire. J'ai donc protégé la commande deletefolder. De même, les msgbox servent de test. Attention, il y a des profils cachés. J'ai créé des dossiers "bidon" sur "c:\Documents and Settin...