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

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Bán đấu giá ủng hộ từ thiện

Sự kiện công nghệ lớn nhất trong năm của Sony sắp đổ bộ Hà Nội

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

Tin tức công nghệ mới
kết quả từ 1 tới 9 trên 9
  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.657
    Cảm ơn
    650
    Điểm
    5.711/1.988 bài viết

    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ó 14 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), mrkinghd (28-09-2014), 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.963
    Cảm ơn
    6.854
    Điểm
    8.306/3.860 bài viết

    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
    85
    Cảm ơn
    72
    Điểm
    36/16 bài viết

    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
    684
    Cảm ơn
    784
    Điểm
    228/146 bài viết

    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

    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

    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

    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

    Default

    up cho ngày mới

  11. #9
    mrkinghd's Avatar
    mrkinghd vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Nov 2009
    Bài
    42
    Cảm ơn
    70
    Điểm
    3/2 bài viết

    Default

    chuan qua, minh dang tim load tren mang toan thay bao viủt.
    cam on bac nhieu. HAYYYYYYYYYYYYYYYYYYYYYYYYYYYY

 

 

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
  •