انجمن های تخصصی  فلش خور
تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان - نسخه‌ی قابل چاپ

+- انجمن های تخصصی فلش خور (http://www.flashkhor.com/forum)
+-- انجمن: رایانه (http://www.flashkhor.com/forum/forumdisplay.php?fid=27)
+--- انجمن: آموزش رایانه و اینترنت (http://www.flashkhor.com/forum/forumdisplay.php?fid=60)
+--- موضوع: تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان (/showthread.php?tid=261748)



تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان - an idiot - 16-08-2016

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1  

در این ترفند به نحوه‌ی تغییر دسته‌جمعی و یکجای نام فایل‌ها در محیط ویندوز به کمک نرم‌افزار مایکروسافت اکسل و Command Prompt خواهیم پرداخت. این روش از نام‌های فارسی نیز پشتیبانی می‌کند.

 

ابتدا وارد پوشه‌ای که فایل‌ها در آن قرار دارد شوید. سپس مسیر پوشه را Copy کنید.

 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



اکنون در مرورگر وب خود، در قسمت نوار آدرس این مسیر را Paste کرده و Enter بزنید.



تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1

 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



اکنون توسط کلیدهای ترکیبی Ctrl+A کل متون صفحه را انتخاب کرده و آن‌ها را Copy کنید. سپس داخل محیط اکسل در یک صفحه‌ی جدید، این محتوا را Paste نمایید.



تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



سلول‌های اضافی را پاک نمایید.



تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



نام جدید با فرمت‌شان را در ستون مقابل بنویسید. سپس ستون نام قدیمی فایل‌‌ها را انتخاب کنید.



تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



اکنون اگر تب Developer اکسل را تاکنون فعال نکرده‌اید، بر روی File و سپس Options کلیک کنید. سپس در تب Customize Ribbon، گزینه‌‌ی Developer را فعال کرده و روی OK کلیک کنید.

 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



اکنون در محیط اکسل به تب Developer بروید و Visual Basic را انتخاب کنید (یا کلیدهای Alt+F11 را فشار دهید). سپس روی Sheet1(Sheet1) در سمت چپ دوبارکلیک کنید تا پنجره‌ی سفید رنگ برنامه‌نویسی باز شود.

 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



کد زیر را در کادر سفیدرنگ Paste نمایید:

کد:
Sub Macro1()
Dim c As Range
For Each c In Selection
c.Offset(0, 2) = "ren """ & c.Offset(0, 0) & """ """ & " - " & c.Offset(0, 1) & """"
Next
End Sub
 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



ستون ایجاد شده را Copy نمایید.

 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



به پوشه‌ی مورد نظر بروید و Command Prompt را از منوی File باز کنید.

 

تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



عملیات Paste را با فشردن کلیدهای Ctrl+V انجام دهید.



تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان 1



تغییر نام فایل‌ها انجام خواهد شد.