Tự tay chế tạo phần mềm đổi tên file

Tự tay "chế tạo" phần mềm đổi tên file Đã 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í...
Nội dung trích xuất từ tài liệu:
Tự tay "chế tạo" phần mềm đổi tên fileTự tay chế tạo phần mềm đổi tên fileĐã bao giờ bạn phải đối mặt với việc đổi tên hàngtrăm file cùng lúc? Chỉ bằng một vài thao tác đơngiản, bạn hoàn toàn có thể tự chế ra một chươngtrì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ộtcô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ấtnhiề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àyvà sắp xếp chúng theo số thứ tự từ bé đến lớn để tiệnviệc sử dụng và tìm kiếm? Nếu không có phần mềmthì chắc chắn bạn sẽ phải click chuột phải vào từngbứ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 numberfor each file in root.Filesnumber=number+1file.Name = anh & number & . &fso.GetExtensionName(file.Name)nextVới thư mục “Danh” là đường dẫn đến thư mục chứacá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ươngtrình sẽ đổi tên các file trong thư mục trên thànhanh1, 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ạivớ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.