[AccessD] is it possible to rename many folders via access?

Hi Kostas

Well, Dir will list your folders:

  ' Find first folder.
  strFolder = Dir(strParent & "\*.", vbDirectory)
  While Len(strFolder) > 0
    ' Pick movie.
    strName = Split(strFolder, "-")(0)
    lngLen = Len(strName)
    ' Rearrange movie and concatenate with composer.
    strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" & Split(strFolder, "-")(1)
    ' Build old and new path.
    strPath = strParent & "\" & strFolder
    strNewPath = strParent & "\" & strNewName
    ' Rename folder.
    Name strPath As strNewPath
    ' Find next folder.
    strFolder = Dir
  Wend

/gustav

>>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
Jurgen,
KING KONG was just an example.
every folder has its unic name
My example was refferenced to that, trying to explain the format of the 
folder names e.g.

Movie Title (Year) - Composer

thank's for your response
/kostas

----- Original Message ----- 
From: "Jurgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 6:37 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Kostas:
>
> You can use the Dir function to return file/folder names that match the
> spec, check the return value as to whether it is a directory with GetAttr
> (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then 
> use
> the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>
> Obviously all your folders can't have the same name and be in the same
> location.  EIther they are elsewhere in the directory structure or on
> various drives and/or machines.  You'll either need to to a recursive 
> search
> with the Dir function to return the original folder names, unless the
> folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.
>
> Do all the folders have exactly the same name, or is that just the start 
> of
> the name and they have various suffixes and share the same root?
>
>
>
> Ciao
> Jürgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com 
>
>
>
>
>
>>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>>Reply-To: Access Developers discussion and problem
>>solving<accessd at databaseadvisors.com>
>>To: "Access Developers discussion and problem
>>solving"<accessd at databaseadvisors.com>
>>Subject: [AccessD] is it possible to rename many folders via access?
>>Date: Mon, 16 Jan 2006 13:47:59 +0200
>>MIME-Version: 1.0
>>Received: from databaseadvisors.com ([209.135.140.44]) by
>>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 
>>15
>>Jan 2006 03:49:00 -0800
>>Received: from databaseadvisors.com (databaseadvisors.com
>>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id
>>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>>Received: from aiolos.otenet.gr
>>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com
>>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by
>>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>>References: <s3973f7d.045 at cactus.dk>
>>X-MSMail-Priority: Normal
>>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>>X-BeenThere: accessd at databaseadvisors.com 
>>X-Mailman-Version: 2.1.6-xhtml
>>Precedence: list
>>List-Id: Access Developers discussion and problem
>>solving<accessd.databaseadvisors.com>
>>List-Unsubscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>>List-Post: <mailto:accessd at databaseadvisors.com>
>>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>>List-Subscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>>Errors-To: accessd-bounces at databaseadvisors.com 
>>Return-Path: accessd-bounces at databaseadvisors.com 
>>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC)
>>FILETIME=[AD234AD0:01C619C9]
>>
>>I have about 7.000 folders saved as .
>>KING KONG (1933) - Max Steiner
>>what I want to do is to rename all the folders as
>>(1933) KING KONG - Max Steiner
>>
>>is that possible?
>>thank's a lot
>>/kostas