Laboratoire Microsoft |  Blog  |  Webcast - BETA SOON |  Students Club |  Forum |  FaqXP |  CertifExpress 
La Référence Absolue sur les Technologies Microsoft




Supprimer les espaces dans les noms de fichiers

Accueil > Script > windows_xp > Supprimer les espaces dans les noms de fichiers

Supprimer les espaces dans les noms de fichiers

Par Ismaël LIMBADA, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT
Publiée le 29/08/2006 vers 14h.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='C:\VOTREREPERTOIRE'} Where " _
 & "ResultClass = CIM_DataFile")
For Each objFile In colFileList
arrNames = Split(objFile.Name, "\")
intIndex = Ubound(arrNames)
arrNames(intIndex) = Replace(arrNames(intIndex), " ", "")
strNewName = Join(arrNames, "\")
errResult = objFile.Rename(strNewName)
Next


Proposer un script

Notre avis :

Votre avis :

Réactions :
0

Votants :
1

Visites :
6422

1
 2
 3
 4
 5

Scripts Windows Précédent :

Lister les imprimantes sur un ordinateur distant

Scripts Windows Suivant :

Activer le service Session Directory

Scripts Windows Précédent(e)(s)

29/08/2006 - Lister les imprimantes sur un ordinateur distant

25/08/2006 - Renommer le service RDP-tcp

25/08/2006 - Affichage des propriétés du service Session Directory

23/08/2006 - Monitorer les performances de Terminal Serveur

23/08/2006 - Monitorer le service Terminal Serveur

Les Scripts Windows Suivant(e)(s)

30/08/2006 - Activer le service Session Directory

30/08/2006 - Démarrer un programme à la connexion

30/08/2006 - Effacer le serveur de licence sur un TSE

30/08/2006 - Obtenir l'état du serveur IMAP sur un ordinateur avec IIS 6.0

30/08/2006 - Lister les sessions IMAP



Retrouvez ci-dessous les autres sections du Laboratoire Microsoft

Articles

Windows Server 2008 : Network Access Protection
[35 mn de lecture - paru le 04/07/2008]

Windows Live One Care : Présentation et Utilisation
[15 mn de lecture - paru le 20/06/2008]

Windows Vista : Configuration du Contrôle Parental
[15 mn de lecture - paru le 20/06/2008]

Windows Server 2008 : Hyper-V
[45 mn de lecture - paru le 19/05/2008]

Exchange Server 2007: Les nouveautés du Service Pack 1
[45 mn de lecture - paru le 01/05/2008]

Tous les articles Proposer un Article Réagir à un article dans le Forum