VBS to Rename File via Send To Menu

Every day I have to rename files to replace spaces with dashes before I can send them to our machines (a few of our machines don't read spaces in file names but our file naming conventions have spaces, a conflict of interest I know).

Sometimes it's one file others it's a half dozen so my approach is to use the Windows Send To menu to send selected files to the script.

I've gotten as far as renaming the strings but the actual move function says path not found when I get to the fso.movefile function.

Here's what I have so far.

Set objArgs = WScript.Arguments

Dim Fso

Set Fso = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

' Assign array entry to variable

    t = objArgs(I)

' Parse variable to replace spaces with dashes

    s = Replace(t, " ", "-")

' Let me know how I did

    WScript.Echo t & vbcrlf & s

'Move 'em

    fso.movefile t, s

Next

Any help will be greatly appreciated.

asked Nov 21 '18 at 18:37

Rekd

' Let me know how I did would you like to share that?

– CatCat
Nov 21 '18 at 19:07

add a comment |

Sometimes it's one file others it's a half dozen so my approach is to use the Windows Send To menu to send selected files to the script.

I've gotten as far as renaming the strings but the actual move function says path not found when I get to the fso.movefile function.

Here's what I have so far.

Set objArgs = WScript.Arguments

Dim Fso

Set Fso = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

' Assign array entry to variable

    t = objArgs(I)

' Parse variable to replace spaces with dashes

    s = Replace(t, " ", "-")

' Let me know how I did

    WScript.Echo t & vbcrlf & s

'Move 'em

    fso.movefile t, s

Next

Any help will be greatly appreciated.

asked Nov 21 '18 at 18:37

Rekd

' Let me know how I did would you like to share that?

– CatCat
Nov 21 '18 at 19:07

add a comment |

Sometimes it's one file others it's a half dozen so my approach is to use the Windows Send To menu to send selected files to the script.

I've gotten as far as renaming the strings but the actual move function says path not found when I get to the fso.movefile function.

Here's what I have so far.

Set objArgs = WScript.Arguments

Dim Fso

Set Fso = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

' Assign array entry to variable

    t = objArgs(I)

' Parse variable to replace spaces with dashes

    s = Replace(t, " ", "-")

' Let me know how I did

    WScript.Echo t & vbcrlf & s

'Move 'em

    fso.movefile t, s

Next

Any help will be greatly appreciated.

asked Nov 21 '18 at 18:37

Rekd

Sometimes it's one file others it's a half dozen so my approach is to use the Windows Send To menu to send selected files to the script.

I've gotten as far as renaming the strings but the actual move function says path not found when I get to the fso.movefile function.

Here's what I have so far.

Set objArgs = WScript.Arguments

Dim Fso

Set Fso = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

' Assign array entry to variable

    t = objArgs(I)

' Parse variable to replace spaces with dashes

    s = Replace(t, " ", "-")

' Let me know how I did

    WScript.Echo t & vbcrlf & s

'Move 'em

    fso.movefile t, s

Next

Any help will be greatly appreciated.

file vbscript rename movefile

asked Nov 21 '18 at 18:37

Rekd

asked Nov 21 '18 at 18:37

Rekd

asked Nov 21 '18 at 18:37

Rekd

asked Nov 21 '18 at 18:37

Rekd

asked Nov 21 '18 at 18:37

Rekd

' Let me know how I did would you like to share that?

– CatCat
Nov 21 '18 at 19:07

add a comment |

' Let me know how I did would you like to share that?

– CatCat
Nov 21 '18 at 19:07

' Let me know how I did would you like to share that?

– CatCat
Nov 21 '18 at 19:07

add a comment |

1 Answer
1

active

oldest

votes

So my problem was the folder I was in had spaces too. So my code was trying to rename to a folder that didn't exist.

Once I parsed the file name out of the path and re-grouped the modified file name it worked great. Code below.

Dim t ' original file and path

Dim s ' file name only with spaces

Dim u ' new file name without spaces

Dim v ' path only

Dim obj

Set objArgs = WScript.Arguments

set obj = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

        ' Assign array entry to variable

            t = objArgs(I)

        ' Parse file name from path

            s = Right(t, Len(t) - InStrRev(t, ""))

        ' Remove file name from path

            v = left(t, InStrRev(t, ""))

        ' Parse variable to replace spaces with dashes

            u = Replace(s, " ", "-")

'       ' Let me know how I did

'           WScript.Echo "Was(t):    " & t & vbcrlf & "Is(s):     " & s & vbcrlf & "Path:  " & v

        'Move 'em

        obj.movefile t, v & u

    Next

answered Nov 21 '18 at 21:33

Rekd

There are better ways to get a filename than using string manipulation. See FileSystemObject.GetFileName(path)

– Geert Bellekens
Nov 22 '18 at 9:43

Hahaha, yeah, but that would be too easy...(j/k) Thanks. That made things much easier. And less frustrating.

– Rekd
Nov 23 '18 at 15:15

add a comment |

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53418565%2fvbs-to-rename-file-via-send-to-menu%23new-answer', 'question_page');
}
);

Post as a guest

Name

Required, but never shown

1 Answer
1

active

oldest

votes

1 Answer
1

active

oldest

votes

So my problem was the folder I was in had spaces too. So my code was trying to rename to a folder that didn't exist.

Once I parsed the file name out of the path and re-grouped the modified file name it worked great. Code below.

Dim t ' original file and path

Dim s ' file name only with spaces

Dim u ' new file name without spaces

Dim v ' path only

Dim obj

Set objArgs = WScript.Arguments

set obj = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

        ' Assign array entry to variable

            t = objArgs(I)

        ' Parse file name from path

            s = Right(t, Len(t) - InStrRev(t, ""))

        ' Remove file name from path

            v = left(t, InStrRev(t, ""))

        ' Parse variable to replace spaces with dashes

            u = Replace(s, " ", "-")

'       ' Let me know how I did

'           WScript.Echo "Was(t):    " & t & vbcrlf & "Is(s):     " & s & vbcrlf & "Path:  " & v

        'Move 'em

        obj.movefile t, v & u

    Next

answered Nov 21 '18 at 21:33

Rekd

There are better ways to get a filename than using string manipulation. See FileSystemObject.GetFileName(path)

– Geert Bellekens
Nov 22 '18 at 9:43

Hahaha, yeah, but that would be too easy...(j/k) Thanks. That made things much easier. And less frustrating.

– Rekd
Nov 23 '18 at 15:15

add a comment |

So my problem was the folder I was in had spaces too. So my code was trying to rename to a folder that didn't exist.

Once I parsed the file name out of the path and re-grouped the modified file name it worked great. Code below.

Dim t ' original file and path

Dim s ' file name only with spaces

Dim u ' new file name without spaces

Dim v ' path only

Dim obj

Set objArgs = WScript.Arguments

set obj = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

        ' Assign array entry to variable

            t = objArgs(I)

        ' Parse file name from path

            s = Right(t, Len(t) - InStrRev(t, ""))

        ' Remove file name from path

            v = left(t, InStrRev(t, ""))

        ' Parse variable to replace spaces with dashes

            u = Replace(s, " ", "-")

'       ' Let me know how I did

'           WScript.Echo "Was(t):    " & t & vbcrlf & "Is(s):     " & s & vbcrlf & "Path:  " & v

        'Move 'em

        obj.movefile t, v & u

    Next

answered Nov 21 '18 at 21:33

Rekd

There are better ways to get a filename than using string manipulation. See FileSystemObject.GetFileName(path)

– Geert Bellekens
Nov 22 '18 at 9:43

Hahaha, yeah, but that would be too easy...(j/k) Thanks. That made things much easier. And less frustrating.

– Rekd
Nov 23 '18 at 15:15

add a comment |

So my problem was the folder I was in had spaces too. So my code was trying to rename to a folder that didn't exist.

Once I parsed the file name out of the path and re-grouped the modified file name it worked great. Code below.

Dim t ' original file and path

Dim s ' file name only with spaces

Dim u ' new file name without spaces

Dim v ' path only

Dim obj

Set objArgs = WScript.Arguments

set obj = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

        ' Assign array entry to variable

            t = objArgs(I)

        ' Parse file name from path

            s = Right(t, Len(t) - InStrRev(t, ""))

        ' Remove file name from path

            v = left(t, InStrRev(t, ""))

        ' Parse variable to replace spaces with dashes

            u = Replace(s, " ", "-")

'       ' Let me know how I did

'           WScript.Echo "Was(t):    " & t & vbcrlf & "Is(s):     " & s & vbcrlf & "Path:  " & v

        'Move 'em

        obj.movefile t, v & u

    Next

answered Nov 21 '18 at 21:33

Rekd

So my problem was the folder I was in had spaces too. So my code was trying to rename to a folder that didn't exist.

Once I parsed the file name out of the path and re-grouped the modified file name it worked great. Code below.

Dim t ' original file and path

Dim s ' file name only with spaces

Dim u ' new file name without spaces

Dim v ' path only

Dim obj

Set objArgs = WScript.Arguments

set obj = WScript.CreateObject("Scripting.FileSystemObject")



'Cycle through files

    For I = 0 to objArgs.Count - 1

        ' Assign array entry to variable

            t = objArgs(I)

        ' Parse file name from path

            s = Right(t, Len(t) - InStrRev(t, ""))

        ' Remove file name from path

            v = left(t, InStrRev(t, ""))

        ' Parse variable to replace spaces with dashes

            u = Replace(s, " ", "-")

'       ' Let me know how I did

'           WScript.Echo "Was(t):    " & t & vbcrlf & "Is(s):     " & s & vbcrlf & "Path:  " & v

        'Move 'em

        obj.movefile t, v & u

    Next

answered Nov 21 '18 at 21:33

Rekd

answered Nov 21 '18 at 21:33

Rekd

answered Nov 21 '18 at 21:33

Rekd

answered Nov 21 '18 at 21:33

Rekd

There are better ways to get a filename than using string manipulation. See FileSystemObject.GetFileName(path)

– Geert Bellekens
Nov 22 '18 at 9:43

Hahaha, yeah, but that would be too easy...(j/k) Thanks. That made things much easier. And less frustrating.

– Rekd
Nov 23 '18 at 15:15

add a comment |

There are better ways to get a filename than using string manipulation. See FileSystemObject.GetFileName(path)

– Geert Bellekens
Nov 22 '18 at 9:43

Hahaha, yeah, but that would be too easy...(j/k) Thanks. That made things much easier. And less frustrating.

– Rekd
Nov 23 '18 at 15:15

There are better ways to get a filename than using string manipulation. See FileSystemObject.GetFileName(path)

– Geert Bellekens
Nov 22 '18 at 9:43

Hahaha, yeah, but that would be too easy...(j/k) Thanks. That made things much easier. And less frustrating.

– Rekd
Nov 23 '18 at 15:15

add a comment |

draft saved

draft discarded

Thanks for contributing an answer to Stack Overflow!

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Name

Required, but never shown

Name

Required, but never shown

This page is only for reference, If you need detailed information, please check here

Search This Blog

Ufyukyu