vbs

[PepsiHog]

Hello Everyone,

Does anyone know why I am getting "Path not found" with this vbs?

Code: Select all

VBStart
Option Explicit

Sub MoveFolder(Source,Dest)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFolder "%Source%","%Dest%"
End Sub

VBEND

//C:\Users\Felix The Cat\Desktop\Move this folder
//C:\Users\Felix The Cat\Desktop\Move here

let>Source=%Desktop_Dir%\Move this Folder

let>Dest=%Desktop_Dir%\Move here\


VBRun>MoveFolder,%Source%,%Dest%

Thanks,
PepsiHog

[Grovkillen]

Tried to quote the input variables?

Code: Select all

VBRun>MoveFolder,"%Source%","%Dest%"

[PepsiHog]

Not sure what you mean. Did you scroll the window and I did thus suggesting that's wrong, or you didn't scroll and suggesting that is what it needs?

Thanks for helping,
Pepsihog

[Grovkillen]

I'm nowhere near a computer (reading on a phone) and thought you could test to add quotes around the input to the VBA (the VBRun command).

[PepsiHog]

I tried that and even removing them from the fso.movefolder line. Adding to vbrun made no difference. It still reports invalid path. The fso thing causes another error. I changed to %Desktop_Dir% to ensure the path was correct. I added \ to the end of each, together and one by one.

The answer is likely so dumb-foundingly stupid(easy) that it's gonna cause my head to spin in both directions and explode. And not in the good way, either.

I have no clue,
PepsiHog

[PepsiHog]

When writing a macro, do you ever feel like everything in the universe is simultaneously working against you?

PepsiHog

[Grovkillen]

Try a message in the VBA code, containing the path variable to see how it looks.

[PepsiHog]

I have tried every permutation I can think of. I even installed v12. If you insert the path directly into the vbscript it works. I went online and found another vbscript and it also works if the paths are directly inserted into the vbs. Using strings causes an error, "path not found".

To me, there is only one conclusion.

Thanks for helping,
PepsiHog

[Marcus Tettmar]

Your code should be:

Code: Select all

VBStart
Option Explicit

Sub MoveFolder(Source,Dest)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFolder Source, Dest
End Sub

VBEND

//C:\Users\Felix The Cat\Desktop\Move this folder
//C:\Users\Felix The Cat\Desktop\Move here

let>Source=%Desktop_Dir%\Move this Folder

let>Dest=%Desktop_Dir%\Move here\


VBRun>MoveFolder,%Source%,%Dest%

[PepsiHog]

@Marcus,
Thanks. It worked. I swear I tried that previously.

PepsiHog

[edit] - Ok. I know. I did not try removing the parentheses. I tried removing the percent signs. Well doesn't this fit with exactly what I was saying. Something so simple. Dang! Isn't that a kick in the head!

[PepsiHog]

Hello Everyone,
Thanks goes out to Grovkillen and Marcus for the help with getting this VBScript working.

While I was trying to get the VBScript to work, I grabbed this script from the internet to see if it would work. I like this one because it has an 'IF' statement to be sure no error occurs.

Thanks to the help I received, I was able to also make the following VBScript work.

I thought I would share it. It may help others looking to move a folder within a MS script.

Code: Select all

let>Source=%Desktop_Dir%\Move This Folder
let>Dest=%Desktop_Dir%\Move Here\

VBStart
Sub MoveFolder (Source,Dest)
dim filesys
 set filesys=CreateObject("Scripting.FileSystemObject")
 If filesys.FolderExists(Source) And filesys.FolderExists(Dest) Then
 filesys.MoveFolder Source,Dest
 End If
End Sub

VBEND

VBRun>MoveFolder,%Source%,%Dest%

PepsiHog