Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (140.45 KB, 4 trang )
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í 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.FileSystemO
bject")
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)