Moving Directories

R

Robert Pollock

Hi, I would like to write a macro that would move a named
directory including the word and excel files inside it,
from one directory to another.

Example - move directory called 12345

source = c:\system\live\ and destination = c:\system\dead\
so the existing path would be c:\system\live\12345

The user would be prompted for the name of the directory
to be moved (in this case 12345) by an input box.

Thank you.
Robert Pollock.

PS : Would the directory move with it's contents from one
command, or would the contents have to be named in
variables ?
 
K

K Dales

If you include a reference to the "Microsoft Scripting
Runtime" library you can use the MoveFolder method of the
FileSystemObject object:

Dim fs as Object

Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFolder source, destination

Where source and destination are your paths.

See Help on the MoveFolder method for details, but this
should work in one step - i.e. no need to step through the
folder contents.
 
A

Amedee Van Gasse

Robert said:
Hi, I would like to write a macro that would move a named
directory including the word and excel files inside it,
from one directory to another.

Example - move directory called 12345

source = c:\system\live\ and destination = c:\system\dead\
so the existing path would be c:\system\live\12345

The user would be prompted for the name of the directory
to be moved (in this case 12345) by an input box.

Thank you.
Robert Pollock.

PS : Would the directory move with it's contents from one
command, or would the contents have to be named in
variables ?
Click to expand...

I found this on the MSDN DVD, it should also work in VBA:

Scripting Runtime Library

MoveFolder Method
See Also
CopyFile Method | DeleteFile Method | GetFile Method | GetFileName
Method | Move Method | MoveFile Method | OpenTextFile Method
Applies To: FileSystemObject Object

Moves one or more folders from one location to another.

object.MoveFolder ( source, destination );

Arguments

object
Required. Always the name of a FileSystemObject.

source
Required. The path to the folder or folders to be moved. The source
argument string can contain wildcard characters in the last path
component only.

destination
Required. The path where the folder or folders are to be moved. The
destination argument can't contain wildcard characters.

Remarks
If source contains wildcards or destination ends with a path separator
(\), it is assumed that destination specifies an existing folder in
which to move the matching files. Otherwise, destination is assumed to
be the name of a destination folder to create. In either case, three
things can happen when an individual folder is moved:

If destination does not exist, the folder gets moved. This is the usual
case.
If destination is an existing file, an error occurs.
If destination is a directory, an error occurs.

An error also occurs if a wildcard character that is used in source
doesn't match any folders. The MoveFolder method stops on the first
error it encounters. No attempt is made to roll back any changes made
before the error occurs.

Important
This method allows moving folders between volumes only if supported by
the operating system.

The following example illustrates the use of the MoveFolder method:

[VBScript]
Sub MoveAFolder(Drivespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFolder Drivespec, "c:\windows\desktop\"
End Sub

© 2001 Microsoft Corporation. All rights reserved.
 
T

Tom Ogilvy

This won't work across drives, but works in the same drive:

Sub AAA()
Name "c:\system\live\12345" As "c:\system\dead\12345"

End Sub
 
Top