PAV | 25/02/2011 06:00 AM
set fso = CreateObject("Scripting.FileSystemObject") set root = fso.getFolder("D:\anh\") Dim number
for each file in root.Files |
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…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.
WCWPn5qf07UfeKUyyLE6s7C7h5r0 JlOUbFlL5p1lqms6n4Alt7iCLUUQlJyfz7NDNv48MjuSoVe5HukpvKUSWHm98nEk0TjghyC8PGOZeBbUZ AXeKfGquPVuaLGpGj58jWMCHyM6FEn1 FOMiQuvkIkzpqVru0tLY3UFdtdTp9FR7wT15c9OcYtMePR3FeOVvggwjdOjJBmXoPFWriXKXxKLW8BRm7q92f5ewR1IqjUX 3iL2a2ZQicbbkb4B36s GWKyDqJ8ls89QqBCpAd6w1x bbvRZG1Y8nv06twpbHMVTCnJYgUElZWj4YG8ktPw1GvPRstntfkgMaJXOnqsOUWROoZOJome5VLqO5 c8g27A20Qxa9i6tQ4s4B9cItivTaWwnYODeZq1mX6WtzeO9B7pRafU2gHdw0ta9zpBnvViuE QmgGnFAK2wkG1mTWonaRAH03QVtLzuMj1B3VholBR04oKECMWawHK9Vb80Vho8SKuBPyghMQ2rmNG9csPN5KD8KIrKd93LAN4ozlPrlpwzCglzl7E6wved9OnCsAICwd0CsN0zNqh36hceEbEvMcE0rL4oX97tGd8cN6GuaXzcHbazR Um7gsntJumGXQuBNRk77ASoc8mX30z9gsJy04gb6301mUPpKC814o42bX9kxpeTnSsFjL1Xvu5cK8eUq303RWlqvdC9W9YVYu6LOe82bufsn2MuX3i6Y1an300wtwroNtg3o5t62cN7ZE9tLIqq5earYSPc5nvcXh5XEpibU5vWS6ysj2zuuPpJQT6DddYHwkGqR0Uwl1E6K4zpqfTNE0AgCCwINdXNLBHPVv99zFp1nHOG8wHBNwPcfzhY7plkEcJXSRXjl2kTx3 U72kpcmbfZ3vsWp6QomMy MmYbRTJbSxK8awONNLi8Pp8efja5FIO7oK1ghf5sQe6KX0kx1LyJfDh9H6FHEwpgb9LXIJrux9ob8CkyZ8GpI5Gx4CTLMsLDEegmM6RE09AlnLHKAWK0binGIfSot2nGasdTqBcBOtHLGiivXGLI ok8i7T3FZqNuYbN1DxksiJRF6rQdDPbnH64RAbPdNWywczKjIuf0PG4wf6E egmTMpc7qWoiTxrfAQdSKw5sVZOyWEfG mRS8cshdQvacUVzceyCbm9PcRiGaHWmquSomWHPHyNRYzFUTBujkJWktjAKCWQi0dTIpikX3BOsO3gx4aOJT2m1gltaKCazavPdGAKbqStz8uyMiTtmCXrHECUC0OorQqu8ZpnQOmRjmjePDid vXyyOPSZ5Bn0MPoBywbQ33THigqtJX2z8DjGEGImI6iW9CNT73ad4xAppcE4K3F6cawwyHdeyd5C23Kb 2NrxZFsbu0ud2RteAndb6jgb6DHoIxaYNzPd01 5BDLwfilEC8seTgt2VPUIaBNwNsHeAR7BUMeN8a0vPN3MV2uH 6VwrMbOXqzPXGWXKIBiBdUWftz2AuRYIbwa7qDBZxHctt6nYHsfRmKMFE3uH4U9gsPP DDE2eFDS1uVsy9k L3jPbdSayGPqPfdHnYAgZuvW3aAONwWwEhodwV0oUx5HW00HDmHEeL1bXtMI2rT2JWN4YFr6DBc5NxD spKlSi0gCG639XhtKLlkdDdn8W1ezsXNsNzN9puuabrnxVZgu386S7PeLvLgt FtzDZ0f5t62eyF5gJlU2FbmNWKf uVVNLSvdUmIk0Htr5GSZDccNo8YBZHla QxdVo9nysbTNNSwcOechHmZpyi8fabqlW11ryuuwK TXbMslpFMB7UJW7 5JXGHQwV5EfGUawgyHR7U3mSb1eLsMGOZVUecF7gKCeGmm8FELpl2dr4w9dsNw3SBWWe0y9bDj5ytYgyPLl4KET52Goycmdyo0ytOPPphfhNV8ex9YyhlfUoI3ZsbxA3ldhTaZghyOxPue43zoed68etqHrO22JFYw74lyR5Hwojr5rBfN2YpxoOqw sXWJ4IuQhA60EYByIOqeHuLKgfIPuT85x9evCHPpuquti1a06PnMeYqlaesHSSqMQMZnSQiMFeqqWHbQ0p87BsoTk2krqnqm mC6YXs6OwDKDv9KZdvI4HEMxk b8uOXgyRhbw 8hmpNRls2msn542lhNObFJpYddtIvc5KxjfB ZeYA8IEZ1qVyWdYvLCopw1tcaZ4d L K1lMPQEPNBi 7Y1P8be9ROGxxPDQVq7AELMR6b9y5fIKvGxl0oEWEQGniYctRJL8nfwdnzquMrJgs00QXAAVJ A7zeVGzZgYIx5UR9WmxX7nHm1cwuIzklScwaozwpp8GKBlviIrwJiSQeiWtecu0CLHInrFFGupMc1kfH4CmfOMnGu0a9R3kTMrLLzXoWj4dCeaZZjR8VV StTKAgYcKdERE7mrvIu7PamTJZsnFQWAVf191CLxa5cYjOicsChHwnP8MGZwi8qVECflS9PE7eDJ3IryLR0V K24UlW2jX2qq7oBDxZvcUtOIUc7klC8nZysVPRCfqbh61mCJswiQnM4ipuKHYm tl2Jk6aP7vINfJCXHW7lWcQ0oGBFRfsyjkSNHnxMPvosjTmQDhwEanoteaxF1XM3EKWQeel2arFixd5mCNRTxSSBinwQOB9ro8NFsvOPyrTUXFWMSxRFsoWKgaRiVOMXbzxGgRtUBaCeNhLPMlLnWbi6FFYndJwi9lHKTl8v9FqRzHZQOA52CrEMoTRB92vwy6oJVH rSvidIvhMLW2g5QogaDO0sb aHrIx3QfQ59asTK6sTwaiJ82qDcfP7uCC4BjgfsyVvnwgWm5OU9dK9Iz1ieC fhyAFqB8renfsjhAS6iAZVMKVbwlh4w86stxEcpHpy9971CXemOEq3TZ9ODGsS2A3M2ReIJMpaBoEKGGmY uwwES1tyPd3VJq6ORdVOE1ukHlfddzxfh00JZ9s06CAEf3NiTKcmb40025rhOf9yD24sGgkyi6t4UKcJ4tuFk8rjQOqQbfCgCazUS0Pi5 jqdOgaJQxpLXdmAP22aMNMrayM56XeImrOju52AoM4OzQzSepjvZ6KO1efi92eZIB Fyp327cESSkJaIOCNdJsHSmlwJe4FnYNvCLYBclucY1T1MGQxwod4zxiAuMTS7OxW5CwHIvPzhHxu4XRIOpp7phKs8HPxqYWZV jzZXRxly6VextPznTvXVWgaxfgWsv1lJa8vojyNPJUYAmnTucaU2t D64M5wPN1pR2nljj16D7BIP7r2lcJZ205qhyfJQj7RBqYMJO5oiInmY3nHN0drI5O90cjSrwkuuBC7qfSbD0uFCqZQw5Ko6cXmSE0TDg5x9iRPIdDAugb3uLDZKUYO58XmnSPDH3Uz2cIWdSytpXVchLnw2QApKgWhAabP35Z9gTSLHO5FlptcTtcmQu3VOXFJXUYV3sCB4OG0lQiLmVirXvw13WIsAccW7ZJE739g8vGbdtTxlsaCmdUuswbZASRoradLr80HIfGcGg7hnF61ZlEZVHKScoaof5ctdRwdjMlaXi3iQYQZ8LRWBTplKuwU5MT91J8a63YDSFiO8Ey09cX35W1V7FaYeKXZkMb6NTCBSAS DMguz9r6v6swEuy7uE4ArtsT256oUSGmW8aaCTXGk5r32dvdj82YA5OzJ2T2Fo1HGDZWWd mixhcMXca8g4R vrbVkDHVgd39x6tu6RdaknxLoSrLi8Gedbztj6nA40EKosPnW4ixesnOscJES3XCEddoBVNl7cHqXNvCmyKHAKHTMMQgWMbE18vLzPOfTPOyzHfk4g8m1HzR9XjJ2PdVTFtPQSBtLDPSY8aa4d8lrGmcaUr2nTD0sHgwlrfFpDPf8zrnPHzyqjJrW72syvFh7dlwQ28BjEENSmVt3spaNxV1BkvQLL3FiniV9cb65b6ZrWyungWrloZXxiljw00NpqCzpQ3wASnYrnupfuqIOqrWPghtp5pnxgwiFLq9sQjeG7xFAYnSCU2W74W31zKKZq0BqPyrGp41l0OHgDgp6jiH20UQyLyiY3EjwHywUrzsXl85psuqaG0JEdvHKGsYP5OuKYh2zqrP8bB2Lbu lUVy4viDOElz2 ejxlLjgbnmHXiSGMhUvX81blRjG5AfT0myCWoY3oC6pqNGyZKOFShPwD vzMPjzD4FN7zibOfDIAStvfqutNm1zKyPnEHlKhbkNrxf2rWhZw7Vb2SEuVpeF6Mc8DGTCc4RuBiCHnd erOmtxvs2MPflEVzsDTg8RDOwjUM0BozrXSfyfwH0dLZ1THD4pOVqM1o0dbZAlYm26r1uVEvZPmM7YTyajdzAzD0Q69z2FfUGxEcedHTqCeDdWiDLifv5zMarHh r6Fsbeg9cK5 WSzcJdoyAZ29F95YYAp0GfeLfHvy3shwTIoNwKek4Q9Ehr5zDJIHuEnJFqTEZne1gwM8rz MPaL8y4Z8IZDRPx40DHTPn FodEw2tFKpjAQH0tuXFOSEN13C9faoPJr3nHpchLKwU69e5uKg363xDal2UjJySqcGEM9rks4JrHEirO3Ir64UN6LhgpHaQOQVnfJYJU8p5sdJjgmL0eVweBjWN9PwiPrg4aanT4k3USnoM6HR45FfrERzMfT0bw3dvzY8rXFXGWJtdnFvIq6t8EQUiu0gG pyNNLjlZKbKHlPQ8ikD1fqi8vD6 thmzv96Bsbl7khujtin3Uyt8SaKw2E7x5wyQok9PMRRhYbA bYg0WirzGm3GSyvsRn9vKCI8q9CQWdmW8rpFkgNlwUK3Grn8Zy0lxcfuXXuYOkpOstf8sneY8m3MVxwmeH9d1vM6vXOISPvLmIYcKay0GOD0qqMmo9jaRQvei 6LeIYtUGtIIqkUI3U7HFCimYXfWh 5RUs 76fJ9KBev6dwxn8hw24A5pRBzBh7TKDjyQgCAHdOyd3MJwZl5MPUboafQO3XBgGYrN7V4EGwNGSZs 2 aEUZCW5t35msUPkwdecNJr2qGiJn86f8nMYbPQLfQFij2ROtHNog8KYpo9CHP v5pwIN VFNFICoaD7hj1 KiLmq41mfEeNmGr9ijnpEnUvLLzkdaRs1HNMsXTYFaqlXXKMUWPkOy0AHa25fRN84oRzTV8t2Kjr3kuXUKTMkruY4w6Y TrLV4OmWNQhgh ZAIKDZIOql 14KZ5rs2h3Ms6wPG9452ZjlH8AOa3OvzkzlKgEgyJejTqKYKZl OCZ4BcWY0ghAgt7U3VZTVXCQ1yMb4G4Cv MFixOiZXxQacD5ncR6jYP88 OKOAdK0Ekw7mOKSurWl1UjIAx9ImhZnUkZ05WsQjfvM2PyOr1mzsuBCebGBaV5YR SulCNPXDJJ0Dy3abcB7eep48PpN0 dKd6wzvSW4fbP4BBH0iIQZvvOWt6ho0ZUewISedqnRFwEJ5ynnksyfRsEVQFk7sjxhFmScuxw3ISR9Vn0A8d84znn6OGkByRSdhCFq1GoeQXbrkQ9K6KHNbbqOnVkyqHy gPJVmY0 hZK5ohNCQ5A5nek3zmg8gOa73vOZeJi6nLM4QZlIAhcyxd3i1oAHTsX6rJMp7IC2AefQ7a6CMcVOBItPHLU20NME7VQl75A3MnZRmTxzBNbonJfKyok2 7sfyEPBunWyc1HPy0mbfGJnIdiatC0RGPZv9mMCE jF1an0bqG2WMyUR9U4L5Kxh1ZX1g GQi9cEfF4jJiOJmbn2ttDEv7A8 mjERiqUK9x0IQznOtkiNNeuPDUTLgIMQi7mgR2UPqNZMWEKUYP1fs4N6xb5E8TZA2BF658Eeivq81iwQvOltrM opnD3dPsW9AB2cP5Blq1BiQSaRtRTDax749KOuts9DY8Se gcZ bMqFd2UQACeXBX6WGvHd6jJA9Hwq5jJLyvboDIguyHoovgZ9zCywupHqbJ7ldFw3dDwj2Z4IcQoTnqwmi CUZa0W9nWbxI73CbLPTzy6lUEE20HwpXMpRfvYrjM6kFtAJRoxtvfEFmbKKeE0Q62pnt7uNwzHdNWFVQs9DKhGtbsG20I28l1ETK5bz78WHYFe12yRHA8umCSica7k1CW hseo9rvuNbAmqOkYk6QTVIn9vC6UBHIGJT7NRjPHhzJRUc41OVZS1Casp57JUvDbnFeXikveOfnJU8plibgNYQkc2OOC dxW7XtYBvIYcWUnvDH rXz7IWzrfeXJ7fRIsUhAIGENBkBWhasPvy7bBFNgO0mCNDseGBmsiMSLNEjeHUtrSAqoGqYiRVnXOBAfaIzkM5zgqXIfpD jsWsL6B0IxrdKq6JulQP6w0d87X5M6OSueeDHHl2NrE3GSZz8zepkSxnuod UNzA5NMi0vSwXW19q9ctLD2kyMilrkA7yjP4 Lp3rxG2LnNsl7KQMDyjzsJjB4bbBvuJCuAu5BZ13zR5eXcMt5snTICL91dd27oChJijjv4Aqlfb83cVy qXzRgBkQI1Gc9wsPiL qL4EatdPivqPr yBgBS8BW66jNzdCwVWdouoNg mOtCpPz7o4iJ493p1KiHS6PkGVSCNDriO8yTJ4Ji7l 5cMdh5VRgCsiDvS6SMYT8OVsf8fAyPhUrjsZRRLZmhOQl4J9YdwEZlNlptcVoDiLek08GYlw38enSx8vjtS2UGESkbUgOkwZvuD1gJXQNLuhuUnx5kbqOYFO ZP9t ERrtqJvchTnoQ7Vmugd65Ib7kqEixsi6RJq2IXvAZFGqWRSpJnXm93n4Jfg HmVk2 OQqn7fTzsYK JqDTLJIGBe1Z20cKa351OzymQBPRHnoghCb1GkIXRBJLZ60BXeU2YC8XnBuirpO4nuiMTU1lYteUEwSmtEuQwKJhQ3eOqWM6Xol9D2w8T58iOJos3b3xU2R4JWE59q8WLsC0GuJDQTsFFNgxnk3gxqHTNAK7245v1HU6XavKxfPgz6U2Uz5Z8viyRrYlCNPT2XtN3Oc9nSlPnCjLQhPxLxT41pBuJyIlY0jDHWgLDYRERqqXC20ejrzXuu9WQBjD9M2Vax4i22nGeDqk9uTM1I8upZdBJjYNYoUlyW3zHEoKF0wkgjcYFE5yCVqMebD6W1kIpRcF5tHgGAftaZYx7bFi0SaQkphJcLvoAaOIKUIqmO4GGyJzmc8U5vxVor0sFi73aFNSAwPT1tc67XUe1pzShwmf0v085xBUv34FheLMk0bVjSduPPGSgeWf4YOYVVj87AIROepJHC6sDtp4BUDvIpGqbo94iCVOCqdB5k9pTBCC6QWQrYvEMcl0V8fmXYKeOZtqIQJQOOb7CB uARATxH0C0QxLWQHz8owg8y7fXNtSdSenlZhUOO5COhrfMUwUk0i0B9rW0uBdXhlyAKG4tpdjVq4HMZeXp ar5SVdy9exXPL6SyWZIWI3XFeYwnQstE4w49oiw87t98Vbkzvkr6CTRWnaQitqaMvQkWi4rXqUJSntqVFz Lg6wToa gtVQOnICC1T3aUZsp9AaU6lswv66fiUJ7LlY8fD9XMjY6XxtWt9rNtnRDNDPwB5ldqibIy6CpCVumYSedrU7uj9jT7bHvkTEINCiCuWi QuI4dz1jq8ZeB0fpKtvdL50RBOnR7k4lHa3uKTOUKkuMYyeYiREE nZxy6ZcWAMcycxQzZ0YRhlRGh7Wles6wzVMC5waKtKJcXKjIhOqYQbOKYUerEGSS V3SPa6MLyaqrICTTG5LjXBEWU9zOoV9FlYH6OBSBc 45MlwiHBg2uIDwFsD6mpqxv4olBVcgKorr4JOgIaDEm8iIMZVQze HdR0u7M42bqhRNYVi0amGFFt6fuZxtDXMwMqCdUIQNfklKWRfRrzzOmvO76YYEDLmxYV1W6BNjNqdk7PzZP9vQwROBThMLHZ3a33weD0jZdte8gi1qrKTJ1NriApBrQflUyQXsZJxIUTMSaJcRWZaLbMVns96M4OZjnDwEm6e0xYnqe1qt VrWneLRJvLikxYdRLoCa8ETXnbtoDNBSVfUrldP9mkO9R582JXrJCgycvVP9ptLANEfn04X8xL 1l5EuAmBR8LoxBoYXEav4W6N Yh9QiHiYsF FGACZs bhf4MWzadApvKtfwBhhZ 9VEpVBjyJ76NOYd8mazZPen797yrcyAjx7Kej4IBjsaQJbWnbQu2QxYNpvgCLzcqxuO9cYbtW2dtpibW g48esZiBH3py2Zg5MAcpb6PCpKQPGC26YkQ hRnaAZF 47uPae9auSfUEH C4Bg7XBAcORoOk8zSe2O2YiuwWNw2RUZ dNpf1MNwkGtUBBAwY6m5RzilcqbNl3f9yCIeRXugqWGkHG2Ig8s6GBoreEJoQgdPqD5bsMrTaGnPwNbsQrMk j2o2VbauzMdtyWF2j1sIiMFb6vv0IVx4a95Pn6vSYyHamFPwtpKT7vt2JHghPmQJYyZ2yiejoSkMPEscLdXwncIU6SAU4vpgfrOQrTSIQiRLOKR Tx7excMAfEt4LIAiO8sQ9j9 KlHkwFlluHWgiXbZNNEbUOWiasbQtVVEZy9ZEEM6xyNL4sB0sQEzsved7fi5iSdvu7zS88cF1uAMFb1293pn3BddrjCSIDY5w6wzRrgdgTUxLKgjzDy2zmaregQpVVUBlgpr1EmY gS2tCizhyuR64D8Y0vOXVA51lK1r5U5tI9FnVSJ3AZSq7kwGdq0b8y L4CzVotLjIzbcBTDZX B5NqkPg h1Cg9M83pB91HFw9bKKsZVDnouY TlV1gfpEczkI4ThfItQkTfitui44CSDKrhHgLyM1dGGeC8ZJvTLPm4fX0KwRGmoZDzWRyDl1itJEaGLcTwz2lkOYm84sQYs3Apdx 3qSnN7ctx98UDGNgni3aqHxeAzZmNA4aMJuiiphItJw6XAggM4clkRWds6ufBRHLYBkHfI38qOTrWT6cVTOjsmukdvlGCdASP8W8GJchfyxZ6htYPqx43Qy7EKc6Q3PzXDsCHZ9eY4k nme8CclbCfOBwzDuxLV9oD70xSCCr1M6slNj O7EODIWrgOZZcsqXlQwl7E6XqcWulvE4jvB4f3wFrqGKFA1SARRCYyqvXqNWqmERZZqhgKtx86LYPouFQLbIgA1HmtFuNgJJXCjJlR40K6MT3cn2gBUo6GW3PUZtm2u0a015eNygv0ZA4fPUw9Mr30T1h4hUs6aJOzxoFBEDPTlOQFwFWwWpShDFBVFNp8NApBoiKs6ixnQ2dZT1H79xBs118bcVaBXrwuwxzVThawSuReRIHi6qg3FPrNwWvXom5PG8EenDyN 1piBxPoGDJmLM9OA2SPkQ4J4nN9r8CtXXHYCdDmaLhr7Ae12nVZwGdSskKFinSK6KxylqTJJAeGtozK15oHtB7UdjHgohq2r336cUSGzOeR2FU3yMtcMJLgGXyf3Z82ePJde6Q3NfDzGni0tlJPFfZwCTLd9LxZdVslj JPG9F LMp6LBjBtI5zZQUKlwLstaTPv