Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile

Tuyển Mod Mobile diễn dàn Vn-Zoom.com 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Vui thể thao quà ý nghĩa

VPS siêu rẻ cho VNZ 150k/tháng.Server 2 CPU, 16GB RAM,300GB SAS 3tr/tháng
kết quả từ 1 tới 8 trên 8
  1. #1
    kiemma2011's Avatar
    kiemma2011 vẫn chưa có mặt trong diễn đàn Rìu Chiến Bạc Chấm
    Tham gia
    Apr 2009
    Bài
    4.497
    Cảm ơn
    634
    Điểm
    5.526/1.915 bài viết
    VR power
    0

    Default 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.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 “D\anh” 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.

  2. Có 13 thành viên cảm ơn kiemma2011 cho bài viết này:
    123kukukaka (24-06-2012), Apollo_11 (27-04-2012), assasin13890 (24-06-2012), bboyngochiep9x (24-03-2013), betri28 (25-02-2011), bosstaxi (26-12-2013), diepthupl (24-06-2012), dragonrider_51 (22-08-2013), duong1301 (31-10-2012), lapnet9x (18-12-2012), ongtung09 (24-06-2012), tamngastr3191993 (24-06-2012), thethanh1207 (24-06-2012)

  3. #2
    Apollo_11's Avatar
    Apollo_11 vẫn chưa có mặt trong diễn đàn [V-Z] Designer Team
    Huyền thoại V-Z
    Tham gia
    Apr 2011
    Đến từ
    VnZoom những năm 2011 :)
    Bài
    9.025
    Cảm ơn
    6.971
    Điểm
    8.352/3.893 bài viết
    VR power
    12

    Default

    tkanks bạn nhé
    Muốn học Photoshop ? Vào đây : Hidden Content
    P/S : Offline 2 năm ôn thi ĐH
    Hidden Content - Hidden Content

  4. #3
    Tham gia
    Apr 2009
    Đến từ
    Sóc Trăng
    Bài
    72
    Cảm ơn
    62
    Điểm
    34/14 bài viết
    VR power
    0

    Default

    quá hay luôn pro ơi luc truoc co tap tành viet bang pascal ma dài dòng lắm. cái cua pro ngan gon ma dễ xài

  5. #4
    123kukukaka's Avatar
    123kukukaka vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jul 2010
    Đến từ
    ngoài trái đất ^^
    Bài
    688
    Cảm ơn
    783
    Điểm
    228/146 bài viết
    VR power
    0

    Default

    hay lắm....

  6. #5
    diepthupl's Avatar
    diepthupl vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Jul 2010
    Đến từ
    Gánh chè và phân bò
    Bài
    439
    Cảm ơn
    193
    Điểm
    136/91 bài viết
    VR power
    0

    Default

    Cái này mình chưa dùng tới , nhưng thanks bác vì thủ thuật hay

  7. #6
    babilontinhyeu25's Avatar
    babilontinhyeu25 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Jan 2012
    Bài
    34
    Cảm ơn
    2
    Điểm
    12/9 bài viết
    VR power
    0

    Default

    Các bác dùng cái này hơi cầu kỳ quá, nên tham khảo thôi.. Trong Window có hỗ trợ mà.
    Mở thư mục chứa ảnh -> Ctrl +A -> F2 -> Đặt tên chung cho tên tập tin -> Enter
    Xem thành quả nào.. Nhanh gọn.
    Thay đổi nội dung bởi babilontinhyeu25; 24-06-2012 lúc 17:58.

  8. Có 1 thành viên cảm ơn babilontinhyeu25 cho bài viết này:
    bosstaxi (26-12-2013)

  9. #7
    bosstaxi's Avatar
    bosstaxi vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2007
    Bài
    9
    Cảm ơn
    3
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Các bác cho em hỏi chút có đổi được tên folder không ah ?

    nếu đổi được thì em có ví dụ như này:

    trong Folder ABC em có 5 cái Folder AA, BC, CD ,DD, TE giờ em muồn chạy code như bác kiemma2011, khi chạy mình sẽ ra yêu cầu tìm kiếm cho nó tức là nếu trong Folder ABC có Folder AA, CD thì yêu cầu đổi tên 2 Folder này thành tên bất kỳ khác tên cũ.

    file code chạy để trong Folder ABC.

    Cảm ơn trước các bác đã giúp đỡ!

  10. #8
    bosstaxi's Avatar
    bosstaxi vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2007
    Bài
    9
    Cảm ơn
    3
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    up cho ngày mới

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •