VicoTas
Câu hỏi
MrTien ftienhts
22/06/2013 15:03

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



Danh sách câu trả lời (1)
avatar conkavip 22/06/2013 15:03

 Đã 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.

Trả lời câu hỏi
Tải lại mã
Câu hỏi lĩnh vực Máy vi tính
nophoto Cài font tiếng việt cho win xp ?

Đăng lúc: 15:03 - 22/06/2013 trong Máy vi tính

nophoto Cách tìm kiếm thư trong Gmail ?

Đăng lúc: 15:03 - 22/06/2013 trong Máy vi tính

nophoto Laptop không lên?

Đăng lúc: 15:03 - 22/06/2013 trong Máy vi tính

nophoto Laptop nào chạy mát nhất ?

Đăng lúc: 15:03 - 22/06/2013 trong Máy vi tính

nophoto Lỗi card wireless trên máy HP V3320TU ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Xin hỏi máy này có bluetooth không và giờ lấy lại bằng cách nào?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

Hoài Nam (Nam Tước) Có phải mình đang bị theo dõi ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

Vinh Đánh giá chất lượng laptop Dell Inspiron 14 & 17 dùng chip Core i3/i5 mới ra?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Đánh giá và thủ thuât sử dụng laptop dell 1558 core i7 ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Mình mún nâng cấp laptop toshiba C655D-S5041 nhanh và mạnh hơn được ko?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Cách tăng tốc internet nhanh hơn trong Windows ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

dang duc thang MacBook Pro mới có mạnh và tốt hơn Mac Pro ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Cách sao chép đĩa bản quyền ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Lỗi WINDOWS\system32\configsystem ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

nophoto Cách gỡ bỏ mọi Phần mềm nhanh và sạch với Your Unin Staller 2010 Full ?

Đăng lúc: 15:02 - 22/06/2013 trong Máy vi tính

Củ Chuối Ai biết cách dùng đĩa boot chia lại ổ cứng trong máy tíng giúp mình với?

Đăng lúc: 15:01 - 22/06/2013 trong Máy vi tính

nophoto Nhờ tư vấn case chơi game i7 15 triệu ko ổ DVD, ko HDD, ko RAM ?

Đăng lúc: 15:01 - 22/06/2013 trong Máy vi tính

nophoto Mua laptop nào tốt nhất, rẻ nhất?

Đăng lúc: 15:01 - 22/06/2013 trong Máy vi tính

nophoto Máy này bảo hành thế nào?

Đăng lúc: 15:01 - 22/06/2013 trong Máy vi tính

nophoto Làm sao để máy tính đọc được những file *.prc ?

Đăng lúc: 15:01 - 22/06/2013 trong Máy vi tính

Rao vặt Siêu Vip