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

Jürgen Welz jwelz at hotmail.com
Sun Jan 15 10:36:59 CST 2006


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
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com





More information about the AccessD mailing list