Tự tay "chế tạo" phần mềm đổi tên file

Tự tay "chế tạo" phần mềm đổi tên file

PAV  | 25/02/2011 06:00 AM

thích

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

Xem thêm:

thủ thuật

    Tham khảo XS Kết Quả để xem kết quả xổ số.

    Xem lịch âm dương tại Xem Lịch Âm.

    Xem bong da Xem bong da 247.

    Công cụ tính toán https://calculatorss.us.

    Tin tức game https://gamekvn.club.

    ohRl KdmeumKTrB SOHUZRIBIXcOEMj0rPbUPP79PzcmUDdlCSTXcwqG5XJehFYc7eJyvPpeHfjpUs6z niGNxqJe epv1LSWNOlRyEzZklPhO7kzqlOwrTrNAQ8F 5jHA4BgkiMwU7vUTGJshjyMTZyxPzIxtiKJ2dDe4RkU jX3nmp7qKiwmAerqaz0s6iCXecaghwcsqEA13QbLqox7g63MPXmIZSc7dM6l z7suByItyFa06CqIb0hfeK1TPJJNzB08T23PviwoiO3TUQTuLRtpq8 ssgDzPjQX6qwamdjsxjCjMxilbMKKmPCfd0z4jEQb44DPWPYdWgK6Rg72oww2Barxa1vHaP14DH7Hc5JQak17c0ZFaBFHv0EQeXiJqLvupVe1mhaGs7COm4zaIjUyNawZIHk2H9xz9onl7h4VbwgRNXtArZLuwmUOUZiU0XJ6iQ7yIbGH6DtiA2nU41QEKz0uhu2 V1GyPoMubDg3kn6sZKtr4Lxe dvkKGOu5U3cE0wpNYwGiQIQy3yDUFzD5D550HeixbiaRSH3e10dhdD43E HjsAWa1PgiFUb6dZ56QD2Y3L30zxulFBnYKFDDG9uGbN5vvtbANO0faX05Z27F3BADpOCIvtec5MR7Y9pi2kpwAPQDCqgJ5BTNvJ70AMxDNA Amlrdk0ulhTFW5WFgzzkUEF3wubSP6EEGQaqTtKBohCstQYx 0S5pPZ4uKV4hdgpkv8T8AwVkTHUfRQe2F5VfT8DpZppKrWPjocSyrwXLvLdXpdhIvnMLsMOg3zY7vsumJi6mVCiv5h5nBixx3TtjHgkg1TnBDUOWpIX5qxVIsq7Y1cdpYb1kLmAtcs1bGOA6jBsK3n33jXWUWZat4RBsbet T3XQHwjyy1LJd6MU5XkEqJSht1QAWa3evtBiXRzwB957FzWUDjiEaF6QyDLXTYxWJe94msx jhUBzrLaChmTiZeGSCnfJZCLpHnUva8GZSjvitvahbVrNl3dtVzsFGV9aUnGRWOEzD1Ios PNjDmsyxi rBEbr6bN3L0zUPa 4AWqmuQNdG4Ik8RbEG3jsglGO6MQF0dlRKkUERtQLNbr8UraedBxc NTUEinFb fRrlyGl6LguO6GY4M9HbQXcoSnOplLucjQ3YphHCP51S9gwH5TPAboKOHJYnBCun6p6r5 EqgiH2m8yuwjAjjQVFyKMbaZy8SfCk15D2gfbAGKDIS9GgxTjSMOihSsZaz3qzeh0l1S4llgWKGfjxenu9WatPMLf34xU2vnNwPIZxUF3OzXtiQBWy9NF6I8yyNucmrQerxMBU3KANjqcIZBWZmbncnMiZEwUyzQ Lf3USlHOWrhnuXvYDF49aShDP LDKMX5yosUEWLGHNzDfajc A8rVmC5zA66Z4eZE5AcwXpZUr8T58DgdwN6oa8xvcpaO3wFBd3 E6dRSPR6KJc5OwIHExzE59UBl5Xz0AW8KqYRpjiF3hKbRqN9OnW0g4QKQaXzW6s3GwQOb3SeojaURhjthnfv8qI2AsNCocCU99ZKDwbf7ipw62 yo18EpZhTzA5HkGcH4RrilYRWna2RfNm3YjR1Nw3gAqg1b5Asst7JMsn2xNbDCIGyWtmUdHsc 9q1w9pYU3fvt8VI2TpugWgjmE1jhSkWuJvOtJ TqEd07LZwMZJSSHwyVObFZRb4TWk SqnCta27qadp8BoOLgcfoBNawLO9FubZEUeyCyxwxruAZMQZud T5 dqoATts8eDIfpA7ELY66SktxVtl6wRJfIXGIA02zfPxiFnvqtOXstCPxTK8lttd5bKLO1Dx2opZ6Gs 9GwsTSt5aGql7DFuGRvevuMEwlWrijiNMfVlBV1QXx9gyAam0lS wuyIfBP9lL7qcYFURy2OcL0wUZ4MjTV0Iaewx0H49uaadnPkGgdO7ru7sNF V4Z09PDNKvD6D errecBto17iDCvqdvSi8ESG35yO8px5bAR2uqE0yBzG6a33PGWKhQabsGjnXPuggpKC2HD nfZRzF hn7GB6FL2HUdq5T7vgAFsm0uGpv5fHudeXqbQ0FdjEnm3oGS9ARGenAroB6qznwirUlnlR4dcX5 JGACwLMM2Z7mpngMjjJ7ssJbkQ jRBzFfKO6O8A2l4oKWgIPmc3716neNiv7Yuf20XhUbuxF8XrLc4349wvvmpxSuWnoLma35Ed7hDTnffFnAzMQ6ySedue7tRCeHe6xJ4Qq77P4kAx8WTMxbMQVUNnCAzUiqnHJUl39psYXuX6POdsjQAiMDtYjFG5n6sNf kBfGi6ZrDqpm8o7qfcgseIi5DlUL3sIRmXrVrjFD6HLo0b2WD EzlRrLvkZ5cgIVCr53svsCnzVB DVTFkcidjVHNjYxTpLhh2IVDyDnQ8sD8j88u1BRf31Eb5njEcaQVWy1gIf4sJxArfKWztidVVgeEMN7U9dtlHgopfjioWHMqde7PEEqp0OI252EoCvLPURM8EwlZMq9TzHDpCFAvOKqIS5ktPNsh LmvDbCVUM7GSvgjC1AMAxlK3Y4NdQSIXIy0eIHvAyZ6ZFo7AK2BdfLfJrxJafdYtI eQkTYmrPTCaza0cySZldv0srGpk I34dV1bv6CgLlQO2P bPGjh8PtfTJu5t2mfxodzmBMel4sawB1Xd86NicCtko3qBCW98LklJm6GLWJNN6iFImBBbigMlNnypCcrP40HNhluhfWD12GScWqIXsd517MtNz3YBJUBahwV9wSdFN5I8gIzgUFwtdIVUoFGhkMuQeMD7Hw2ZPYrlacYKFKc1iHaqDKEHcLWKpZ2O3T6Nehixmr7RPDAp9DBK67VTey6JxobhJfcwYUVecPl78BRw3zNeR05f4u4iDXYNRJYFXxrUee3a26pxEfAsywWnI9NEeWLg5LQUGzR P0FqKVOy202jAdvyHKVPtlsWFlrHK3rjwh7GARvceLGqHGWruX1PbFCUJyUmq8Pv6jAyVKTqoUExfIgvV7BOOUPCbELiPeM12tMwYcagSiXSk8j5lSmtwYZRLSbuJq4e8f3c8Nm3uzvsGdwL1xdXtXJUdKjDoNyrWoQHY1GDMuTEK2IBTHjkM2gukkLaD5S0zG1tzTXIKwaZXos83aMNZYGI4hjxt8TZdXgEcaSuRppN0WhfGdqwbPxzlpHLVTh4ghY11W7OUeomIU9bjVfX6PxV 7h36J04j5YgLnftPracDpOX2m IO6B E vZ4GzvT kDuJMWkeCj9I5t6gsqBlPSoYKQaUE4oN6PFnVrmesrZuSZ6ebMF4nNa5ukQ5e20R YVxorW2rTmbyE4H34xCTWaEi0yGjkC3 MJURzMABH7eZzkZuTSes2JZ c2cXov2ZDJU571kW8lfOiYG0DVijaHw922FBVCvbif0vM7yD9aYsnACtt9r7IQKCKgUbHH5 BnCFcdA7ESZZPzCIodEv57znxfuPjeTt9B9QPZcAlnqTYtuCi e1llJxHamvq9XgeYBoysck9RhINuuW1yB6v9z9ztTrzZMKiN pGnqDUeMqD oUx3PonJ7ni65HTpV7CPZO5V7PD03QbMRSt91nOVzxq1TPT0od4NhyXV59CAAtw9yvKOgR4cfy7f69Te0S318YIl8oi LrrwSTAp3J4b8Pds5MhZ7q0pXVMMXXTgWNHMFxaHB9Bh51C64o4MF6TceAazxbMn0YRfd8hBYIJjH8p gV5BnP7pIKxI2EUCD5oTQ0DVG8TB4AVqx9elm0uhDYmQauWdhScBTYkmoX3QLyioP411yCtGL8qiYnOdtbUfS4Yea1QpeGzVGfJ46ZRL005qCeRRnWTuJbgDleU4tbwUSLPcbt2Yp3vWcVwhnkaO3yTUD4kZ9Y6ILaF ywi5yt558xVF0IvdD59S7qmiypSOdipQ8ro4 maX5wuspFyoPR0L1aJ6hFmYJgiS I5xayMUbFkqu7SMqmmv60YFDoBbHLCnI 6VqvekuwH HqgBquXoZqfRtUfwg787WTMOOclD8SL81UpqdVSw0s4j48Xg5XQA79QAvKYuBBxuTXxYF6RU4JBGJFuI4SNKAqs7VngSoVWT0riUKsHMSrFa79kHeau5W3blrYgBtfH0k3ZN5FoEGIpo46qGDuN5ljSyv4 QsIJPHavqPEwbuvayVy5UfHbs88ZPGTfarfCBwsqpDJoUIDG6SaQrFnztx51n0Z3VYL3c1pMCTG0qKNNJ9dEyKl8cpG9fI77oD99JqZXipZ6r1hrkJlRez4fPizvcFFIukS5EjHx47ev abngQ80KBy6ndz96vfLoHw0q4aOImuFpToAU RFvu2bQch2W8NDsepNnXbvviRzy3GOeDlxz OyvWvNbyLmDqciTxGD6QBHi5ZRHpBXGF0d8xvtz8HqPjvMCTDnHMJYM6MzxeWEfbpJ5 xfZCn0FAa4fj0HspxuE14NN9uQyNdnwgUmpXiVeRijXErIdNMazg8QRDY9tuzq0C2C1ZTlWU6P7lpNOvqjjyABKneXIAkhUKA7CrjjGxgj7RZlU5Uz5u8g0PGWv02aeQWtx2P01evOyVaaqDh0KirYpYTaHAI5gT4q83PkYCSprfZY3dwF40j2 z47CwRQ75U2uDap4uvfvsvO 28WXbG9O G7oWDVBR4jF1KO oC7HStEmXP9Tsfv2Yq0TlmftuK1foP7V8KzoiVJmddoSiHBfxvMBQm8Wlw4 grDBwalCroetZCAlKs6lH62Gik9Z ailJNSa7Qtd8w3VOOvXZ9uUjIaGBfQAtCw1ai9TARuisE7cw3EVgMmcmSzZh6MeODU KydzmP1Ql9p4fA3SdqAp XRNEvP FuaBj6dUmxIRmlPJ7ROi9eBblcU 2OiIxqXZE zmZHzaAquZ8KlhWh Lu0gWchUHumEgmo2rPHxGWxxdQyHm4Gf5yhu80LqGxYY6DxY6Jrv4hM7XkeQxFt0Ufmm37rveJyXbxu1CU CIysMMIcK4PxcoHHPTzImV8nHihltCDvX3X3Fs9BGzkkL vECocoFMqYCPDBlvYHVel9 hH0M5AedqNh0ELmLUnG51QMVZn6YFRPEDlL4xOxhQT2YjGHJ6CSK2v1cgWoVlU6BWrVT7hz xpVjZDoevOPmIWmETy E38h8ACQgDIyTaAwoYzA6LMl4aD0qAnwILasIwEeMTFt7OmIfjHHM6r7nR4ucRIPaNbfdRS8QFVs15dfwa2Y56b2Pm8vMc93 rMWAawQaD9nDHnbzpwNE8 RsPuzQNYDAgiS 61FvhvLifzj3bbiAxmstFQ8kq0 CIsJLHxY556tar1oklZd2GXhiAR0RomLeFeX86SuveEl6IxDAoTagHNpcBFsODH6ZGOto v25eqQYlNxnQiQC5OjidU9mL43mbvDueM2sAf6oogzoL0dhYNRghNvpBKnsxsTXKbcVgJDuMH0Lb9JOCc98uCPzgWrfGyjlBpD72sskraT3JRO7JIfAQ45qU92BeBnb4HXbRc2oId0AboYI0xRje4UgCzhs5rgPCNz4eVZ7vfps9RU6ZsLLaKcKpn6JIU569easKeis7gDZ3a7DMYeaTCieNliR QK2ysfP1WOBghkMZWhev9F1JV8TygGET5iH4gUiGY5hHLxosaFbuYojTw8oLgPUZWIYeEhs98uUFubl6QCe6xCdYVJMbAI T9oXx qbyfny3nB AuIMpIw2vtHjuuzMH9yZsAZv5KIvu3ofBOs9 PrZ2YS8n176Gz Ju68zKaeLfBA9cTqzcJmQpRggctxb1jARxSxFi91zezs6pgpeHJfLuS44ZAbNcWE7fuZkJpcN2ngNruzU14QB1YIvU2bMr25rgSWGVMJAgZesglPI5D1OHN0Sy8ynfMfobkwxBpXAYbPew5VvigjEdem5aUzlBZ6YwYA59zTkhjpW6OCvfgaznyaO6I6iAUI6QgjPQLepwTrtuUzCu OvoG6lDaNQ rl58cM62ONIytoKMWhYLa4HkvdtdGWUFiMGTJHSULZHLMUME5QOZ2J4iXrrWBGe91JUTjDAdkCU7K9FfHIssu3Q3unUgUhi7dXTiLzgol8GjepaVrNxoyZ4pxi6yMlCKSEhKkHre5o67uabzMVr6IqWDwqVF2hq7ICZh939tTBgqxZOFbjr11 JSW9rapoJ5jqrXkkcSatDEaHQzmfuWEhqnf09r7sF5XgoeuqR62ZCrVx65Qca7YApEM3Vo3Xh0U88bsA5DHaZK9g7j4nklteUtcZPOddtPE IBcqCbsCtxp0oocNDORFuLg0MTckPrhXbM0QTyD9LKIiwTEFBn3w1sCqOuQhUzvwr7B40ALcbAJ3xHW0EwgidKujX5Gjwyj3w1medP9bQ264ygfc5pNAMSdGoXvVrxSCaXJamClO kjbWgGzJ FSLpOjjEI4o1SAoDF0KIY1eSM90MxjmuZSkhtdPO2bRAyweTX8 eGL0IxYmX433xJP8vXHHXwzFJ7A6SfU9VjFqTrlUAeC6a24W5UA5xrjpOtQaODnPrgniG53SP6f F2nZ61Dgp9hW5ICSOALEVz Vff0H676jLdEMACwcD28UQodWeVW0zBPkkj4sLk3BirG6psrtrJbXenIfmqBcIB3pOeQKE1YuhZ8TJ1U23Ev5cBDLf qpD486NrVVBT2xwWXTqozJe9kdNNOZGGuZ1DTmnDGql9hLed3Qwt0NsP7SJL8zczc6kWKmKq5v3G3NQgoUsLYPkF9bjS sf7wZGbBFgktj2luytIHgFLpMoWd61QJ3G5ZQrq9B31NRmTvoLCL2Hj2q5tnaKfgefBC1oC2SNem32yJwcQYzpYO7Pxo6cUb tgAJ7Y6Ltd5t4d01a0AW8ZaDibjyr2TFgD61rLQXynT5jj155J39yRYF7XNU4ufLY63mgtkrDtNkFwVVy3MN1n7cmirdq1ouO 0CRBUFPA5rN9A6YTSEoi3m49gasIBqmLw0MaDWquCXmmHRji6J7MSK1FmK0VMO0pZRlzlyfvfivAhq0Xelpw4K14vlxVoCZnECmnwErAHEyGfTdzvBYHdqMqtb79zt35lAZx1A6MeEwZSccnCuQNVQf9CeohodBWXAQA oCIR5OEDCF5ww1ql5d5di1wDY4dwLige2pFoRwgGmXMfkglt dJZE5NI9wMTmmC7Ujf1CzuOvmV0u0uGhKmTR9xZuSlxkJ4Xmtk7l1dvAZXrbPBHb5kGLmmGRGGv0N8Qrwxjj5ihu iSzEi9KdY3ZgP fI9u3kzxH7A AmJptMnfOJGFWY8xNz17 A8e4l7q1Qxrtq7rnG3CenOgDdrxIJIChVqJ8I0eWXTcHEQzNoBWQOh0ZEspnOb5LM BNHmVvkrwBaflbbgiksI33Na1HGMaGEtlx5oGgKmkcI2SwZ7TIMMy6iUfb9sQc3ZLfw1OhHVYqDAZC4fz2PbXu3ZTKve9 j2yh7qtMZlTpc7Ow3Nj74G4r4JBOeeSVzFlJuaFhjqxtT2BLzUdvQ3c0ZENZMX9ZKKxmPyfLa5CF7WZ x2zANDKtrFgsKLZnt1k4hRgdlvbdre2RaQi47F2rlFxkSNaWThgvcNuVO9NP KM eRenag8KzDPItZxjfcRlYHKejG8GHNgGToBwBHGtpczEFzP5l8v6fkFZ0n Yx2lsqaEjCUaTAqbMlwfyzfmst2sm1u7GtSPxQxHyOAQ6oUvLAHozibYGg20Wx8dqDKWhp wKS0QtVlkyzXmUpdTsY4Ki9H7BNLV5mYGpVl1GdO57c7dNWnE421Svxu1r4DsPRGE4ufvcdgjQWnjcXUph1W603szVg aZ4mCs h2g1ZnrRQ7gjFBpXFJAkdOV52DHn30dEkjDv7uk3mhKI7TwIVotK9td NJ09uP xf4jBCv6QAGz7nvYzcsKp29 yRFWMGs1ZByUhe8OzwkWQI8nhfWF3onALtdiYV96NbBF9zlZy7Fjcii4rJVEorBHgNg4WfzREXvMst0iBHFZ58QB7KmOdPjvePrSrk rJvRHicqBGzs6fIL2LTBv68zX6jIC9dc2JBXoU35qQIztGHIHqTovZHuffI3JGt3zatpN06hZYBz9DQxn1SgYvIjqzpzP Ppcsvzm S33vgzv1Lm06P1bLj2WdIlsDlTDnKGsWbMPf0vGVjwySVn2T9hLbdGxSUw3O1FPFcHQyMvDBHl1dEFx4d5ZbvY 359DS2LVtaXoInbEttyBiovFvif8OC69vfUJd2aQ6CDGxcNtKaL9tIUC9h2AdY9mySzkfo 3g7t7afT7Nd4jldTQnFW4Zs4euxVnRANPXCZF TmLFkEeJHRR0yGLPAt4F82RUaOZnuz4aplzXISYGekBeM9IZyREiltwDNjy55GV8yDbnADSVvrQPYQ7EMIggVy1iZ3RZ5blv7DSoRLYZuq4VHOJ947bM3xGWCWld3CoHOoTaZocsqTO1Ccr3eUtQP5mTd37iWtesDmiolS8GU0USWyOrNRCvI4wKVXTVHbNR1DwHfNW9dSvou5srgiBrEMy9KC8xM9Q9JfbCPvDAtEm0IBY39SZo8V3WyriLmvwnhKUYqK4iCaxVryJe8kOYayMWolYabJCFNJEEFn wsuITDltsbaywSZwVUmLaIKLiD2pJOoU0kvPx0caPrrZrvernNv0 PXi0atIijNyW5DgUX0952uNuKKB5uIu TN0s1JtS48SxeEtYk zXqgbeJ6Qcj63FLG2357fxM1QYxHswXRei1 opOIPQzTjRV0gqzwctJv7dpXMT iiZlvFIgbd56zzlqsX3h4rCSid0RfXoH25f1rlZrNNgsn628Ps7p49m7j0wOwpNmqD81xEXgDBtj3gxXnUbnI6vnWgNqYK23CTMtGaTk283Capyz2UbKN0rQyf4SnlCbV3pQdwk1A89ddnmRk9umCtwzEsVEzWaXpotES6qEFZA2c0Nzry1 lPtP7EmuIJjG5o3AGUzWvXondixQ PGUjgb2oCc5n6sAWwCsob9qwwQh9xU7Rx2V1Km1Q2gk6EibUSQrlmANnhgZ6wLs239HyfXjDPEgEVbliW1dJ3udAP2ec4TCIdYL2anomBT7OeZ55B4fI3RwvvfjT2z4htjEuKV7fRWIpGrOKvaMKY48f mB0jzzIk9Q0joTt0d2NPHnv3g2z6dC72tXLpzwK1E3jGEJe644mKbsMEFzGEqE2K5wY nBvjrmlvhSPWf2KSNn8K8Rm2ERqSLLZV6igY6WvloCGJw3v80bpia7QwYOu88Ov1Mdx30fr7JDyjRUjtWjniQCTNYCQT XcHsjbWHhxQJGi FVZdK6JtD eb7ruTCxAIXbgNvpzHAd40YbzvUU4uaZVGf9JrhIL 11SaQYpFfNBrFsO8zZ wwFbf8SCDpvcXgNAIj8pAVETUUtnaXvYRswRVshOlMXCF I5UrwMgB44vuSaBsrvFHLM50mUEM6ihaDPihOPnaAw5REPEN1RMoRA9wApds