Máy tính, Internet > Máy vi tính > Chia sẻ kinh nghiệm

Làm thế nào để tự tay "chế tạo" phần mềm đổi tên file ?

thuy linh

Đã bao giờ bạn phải đối mặt với việc đổi tên hàng trăm file cùng lúc? Chỉ bằng một vài thao tác đơn giản, bạn hoàn toàn có thể tự chế ra một chương trình để giúp thực hiện điều này.
Hiện nay trên Internet những phần mềm có khả năng đổi tên file hàng loạt không ít. Nhưng bạn có bao giờ nghĩ rằng, mình có thể tự làm ra hẳn 1 chương trình để thực hiện điều này mà không cần phải tải về một công cụ nào khác.

Ví dụ như bạn có vài trăm bức ảnh sưu tập từ rất nhiều nguồn khác nhau và tất cả được bỏ vào 1 thư mục. Bạn muốn đổi tên tất cả vài trăm bức ảnh này và sắp xếp chúng theo số thứ tự từ bé đến lớn để tiện việc sử dụng và tìm kiếm? Nếu không có phần mềm thì chắc chắn bạn sẽ phải click chuột phải vào từng bức ảnh và chọn rename cho đến khi hoàn tất.

Tuy nhiên việc làm thủ công của bạn có thể thay thế bằng 1 đoạn mã ngắn như sau:

set fso = CreateObject("Scripting.FileSystemObject")
set root = fso.getFolder("D:anh")
Dim number
for each file in root.Files
number=number+1
file.Name = "anh" & number & "." & fso.GetExtensionName(file.Name)
next

Với thư mục “Danh” là đường dẫn đến thư mục chứa các file cần đổi tên và từ “anh” ở lệnh cuối là tên đoạn đầu của mỗi tập tin ví dụ sau khi chạy chương trình sẽ đổi tên các file trong thư mục trên thành anh1, anh 2, anh 3, anh 4…

Nếu không cần bạn có thể xóa nó đi và tên file chỉ còn 1, 2, 3, 4…

Bạn hãy copy đoạn mã trên vào Notepad và lưu lại với đuôi .vbs bạn chạy file vừa tạo để bắt đầu đổi tên.


Nếu không có lỗi gì các file của bạn sẽ được đổi như thế này.


Chúc các bạn thành công.

Hỏi đáp đề xuất

Chia sẻ kinh nghiệm

Làm thế nào bỏ tiếp đầu ngữ "shortcut to ...."?}

Nguyễn Trương Đức 17 năm
-Tìm khóa [HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explore] cho User hiện hành và... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào cập nhật = tay cho AVG?}

Nguyễn Trương Đức 16 năm
Bạn vào http://www.grisoft.com/ww.download-update để down bản cập nhật tương ứng với HDH và phiên bản của... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào để ngưng chế độ tự động tắt của laptop?}

thuy linh 15 năm
Đó là chế độ standby của máy thôi bạn,để tiết kiệm pin ở mức tối đa ấy mà! Muốn bỏ chế độ này thì bạn làm như sau... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào để giảm dung lượng file trong ổ "C" máy tính?}

phạm văn hùng 14 năm
Bạn dùng phần mềm đóng băng ổ C Vậy là sau khi dùng xong. tắt máy khởi động lại thì tất cả những tải về đều mất hết... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào để đổi đuôi file pdf?}

phan nguyen 14 năm
Bạn nên chăc chắn rằng máy bạn đã có phần mềm đọc file PDF chưa đã. nều chứ có thì bạn nên cài vào nha. ở đây: ... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào để "tự tạo" video trên Youtube?}

thuy linh 14 năm
Hãng tìm kiếm số 1 thế giới là Google đã không ít lần gây ngạc nhiên cho người dùng bởi các tính năng... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào để cài đặt phần mềm internet download manager?}

hao 12 năm
Mình có 2 hướng giải quyết cho bạn đây: 1: Nếu ở tiệm net, thì bạn lên google.com gõ vào nội dung cần tìm là " IDM"... Xem thêm
Chia sẻ kinh nghiệm

Làm thế nào để tạo đĩa windows XP cài đặt tự động ?}

hoang cong hop 13 năm
Trích dẫn: Từ bài viết của dieuhoanagakawa Đây là cách đơn giản nhất bạn à: Cách Cài đặt tự... Xem thêm