Renaming Folders - Xtreme Visual Basic Talk

10-24-2002, 06:57 PM

ftwomey

Regular

Join Date: Sep 2002

Location: Maryland

Posts: 89

Renaming Folders

Can anyone help me with the code to rename folders or move folders through VB?

__________________
FT

10-24-2002, 07:29 PM

Kaluriel

Senior Contributor

Join Date: Jun 2002

Location: Where Heaven & Hell meet

Posts: 813

Dim fso As New FileSystemObject
Dim sourcepath as string
Dim destpath as string

fso.MoveFolder(sourcepath,destpath)

that'll move and to rename:

Dim oldfldpath as string
Dim newfldpath as string

name oldfldpath as newfldpath

__________________

"They say the the world will end in the same way it was created. I disagree, I think it'll end without the internet" ~ Kaluriel 2001
"The edit button is mightier than the doublepost" ~ Kaluriel 2003

10-24-2002, 07:51 PM

JDT

Original Contributor

Retired Moderator
* Guru *

Join Date: Jan 2001

Location: Watch Window

Posts: 2,781

In order to use the above exampe you will have to set a reference to Microsoft Scripting Runtime.

However, I would use the Name Statement to move and/or rename it.

This will take a folder from the desktop and move it and rename it to the C:\ drive. That is, if you have Win9x. If you have 2k then change it acordingly. It will also move the files in the folder:

Code:

Option Explicit

Private Sub Form_Load()
  Name "C:\Windows\Desktop\New Folder" As "C:\Newer Folder"
End Sub

__________________
JDT