Assistance avec VBScript pour surveiller le dossier pour les fichiers, puis les renommer et les déplacer

Alors tout d'abord, je m'excuse car je suis un total de noob quand il s'agit de VBScript. J'ai essayé de googler et d'essayer des exemples de code que j'ai trouvés ces derniers jours et je ne peux pas sembler capable de les assembler.Assistance avec VBScript pour surveiller le dossier pour les fichiers, puis les renommer et les déplacer

L'intention du code que j'ai besoin d'écrire est de surveiller un dossier pour les fichiers. Quand un fichier est écrit dans un dossier spécifique, je dois pouvoir obtenir le nom du fichier et le raccourcir à moins de 80 caractères, puis le déplacer vers un dossier différent en laissant le dossier d'origine vide. Si le fichier contient déjà moins de 80 caractères dans le nom de fichier, je préfère laisser le nom seul et le déplacer dans le dossier différent. Les noms de fichiers supprimés dans le dossier surveillé ont des noms assez aléatoires.

J'ai trouvé pas mal d'exemples sur la façon de renommer un fichier en utilisant VBScript, mais tout ceci prédit que vous avez déjà le nom du fichier.

J'ai également trouvé quelques exemples de la façon de surveiller un dossier en utilisant des événements WMI, mais je n'ai pas compris comment les lier ensemble.

Une aide avec cette fonction?

Merci!

Source

2012-12-20 Michael Paul

Cela vous donnera les noms de tous les fichiers dans un répertoire.

Dim fso, folder, files, sFolder 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    sFolder = "C:\DOCUME~1\Philip\LOCALS~1\Temp" 
    Set folder = fso.GetFolder(sFolder) 
    Set files = folder.Files 
    For each k In files 
     WScript.Echo k 
    Next

Source

2012-12-20 22:57:17 Marichyasana

C'est un début. Ce script est une utilisation de temps cependant, correct? C'est bien, je peux simplement utiliser le planificateur de tâches pour l'exécuter toutes les quelques minutes ou plus. Mais, comment pourrais-je regarder fixement avec cela et ensuite l'utiliser pour renommer et déplacer les fichiers? D'après ce que j'ai lu, je remplacerais "WScript.Echo k" par autre chose? Comme la commande renommer avec un argument LEN pour couper la longueur du nom de fichier? –

Marichyasana merci pour votre message. J'ai pu utiliser ce que vous avez posté et bidouiller quelque chose qui a fonctionné pour moi. La partie qui me manquait était comment obtenir les noms dans le dossier, que vous avez fourni. Merci encore. :) –

Assistance avec VBScript pour surveiller le dossier pour les fichiers, puis les renommer et les déplacer

Répondre

Questions connexes