Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Mời anh em Vn-Zoom tham gia ASUS EXPO 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Tuyển Mod box Linux và MacOS

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

Tuyển thành viên nhóm Reviews diễn đàn

Tuyển BQT VN-Zoom
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.614
    Cảm ơn
    645
    Điểm
    5.637/1.964 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
    8.965
    Cảm ơn
    6.854
    Điểm
    8.290/3.859 bài viết
    VR power
    12

    Default

    tkanks bạn nhé

  4. #3
    tamngastr3191993's Avatar
    tamngastr3191993 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Apr 2009
    Đến từ
    Sóc Trăng
    Bài
    76
    Cảm ơn
    64
    Điểm
    35/15 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
    Đã tham gia từ 2009

  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
    690
    Cảm ơn
    782
    Đ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
    Cuộc đời có những hạnh phúc thật gần

  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
  •