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

 

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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

 

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان


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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان


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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان


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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

کد زیر را در کادر سفیدرنگ 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

 

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان

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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان


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

gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw== - تغییر نام دسته‌جمعی فایل‌ها به کمک اکسل و خط فرمان


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

ویدیو از mhq210