Renommer les dossiers avec VBScript

J'ai besoin d'être en mesure de souvent renommer plusieurs dossiers en ASP. Aucune des méthodes que j'ai trouvé sont de travailler pour moi. Voici la méthode que j'essaie-

Set FS = CreateObject("Scripting.FileSystemObject")
FS.MoveFolder "/images/715", "/images/V14"

Ce, ainsi que d'autres que j'ai essayé, me donne toujours un "chemin d'accès introuvable" erreur. Je sais que le répertoire que le script est dans ces dossiers, parce que j'ai eu à les renommer manuellement. Le script s'besoin de connaître le chemin d'accès complet? Que faire si je ne sais pas quel est le chemin d'accès complet peut être?

Mise à jour:

Le script s'exécute dans un répertoire nommé "/ifp". J'ai aussi essayé avec et sans le "/ifp" et à la fois en avant et en arrière des barres obliques, et il a également donné le chemin est introuvable. Une fois que cela fonctionne sur mon serveur de test, je l'ai envoyée pour le gars avec le serveur de production, donc je ne peux pas utiliser de l'électricité statique, les noms de répertoire autre que le "/images/????"

Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
FS.MoveFolder sCurPath & "\ifp\images5", sCurPath & "\ifp\images\V14"
  • Vous avez vraiment un répertoire de niveau supérieur /images? Peut-être l'erreur, c'est que vous êtes à l'aide des chemins absolus ici.
InformationsquelleAutor Gary Scarma | 2013-07-09
  1. 3

    Utiliser des chemins absolus (C:\images\715). Il devrait ressembler à ceci:

    Set FS = CreateObject("Scripting.FileSystemObject")
FS.MoveFolder "C:\images5", "C:\images\V14"

    Si vous utilisez un -nix système, puis garder à l'esprit que la première / est le répertoire racine - vous assurer que vous n'ont, en effet, un dossier d'images dans le répertoire racine du chemin d'accès.

    Notez également que, pour renommer le dossier il ne peut pas être à la traîne \après les noms de dossier et le script doit être exécuté sur la machine locale.

    Si vous continuez à recevoir des erreurs de chemin, vous êtes de passage à une erreur de quelque sorte. Construire dans certains vérification des erreurs pour voir ce qui ne va pas:

    Dim tmpPath = "\ifp\images5"
Dim newPath = "\ifp\images\V14"

If FS.FolderExists(sCurPath & tmpPath) Then
    Response.Write("The folder exists.")
    FS.MoveFolder sCurPath & tmpPath, sCurPath & newPath
Else
    Response.Write("The folder " & sCurPath & tmpPath & " does not exist.")
End If
    • Voir ce que j'ai ajouté ci-dessus. Le dossier "/715" n'a pas de sous-dossiers.
    • Windows comprend la barre oblique comme un délimiteur de chemin, qui ne peut pas être le problème.
    • Je reçois - Permission_denied:_'MsgBox" OK, j'ai changé de réponse.écrire et maintenant je reçois "Le dossier C:\Windows\SysWOW64\inetsrv\ifp\images\715 n'existe pas", mais il est toujours là.
    • vérifiez que le chemin d'accès attentivement, si il dit qu'il n'existe pas - il n'a pas. Sauf si vous faites quelque chose que vous n'êtes pas à me dire, comme une connexion à distance à un autre système et de l'utilisation de ce.
    • C'est en cours d'exécution sur un serveur web. Cela fait-il une différence? Pourquoi mon sCurPath sais pas qui c'est lancé dans l' /ifp répertoire?
    • Quand je regarde dans le gestionnaire de fichiers, c'est aussi dans le dossier httpdocs donc sCurPath est de ne pas retourner ce dont j'ai besoin.
    • J'ai constaté que lorsque est utilisé cela, il a travaillé - sCurPath = Server.MapPath("\ifp") - avec tmpPath = "\images\715" et newPath = "\images\V14", mais je suppose que j'ai encore besoin de savoir ce dossier, le programme sera exécuté.

    InformationsquelleAutor Dan