[решено] переименование и копирование папки

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] переименование и копирование папки (http://forum.oszone.net/showthread.php?t=234887)

Anufriev

18-05-2012 08:00 1918043

переименование и копирование папки

добрый день!

тех задание:

1. на диске "D:\" есть папка "DAT" её нужно переименовать в "сегодняшнюю дату" в формате год.месяц.день (пример 2012.05.21)
2. скопировать с "C:\bnk\" папку "DAT" на диск "D:\"

Iska	18-05-2012 08:52 1918063

Разбираться в чужом неоформленном коде желания мало (особенно умиляет конструкция «Trim(objFolder.Name)»). Опишите вменяемым русским языком, с заглавными буквами в начале и с точками в конце предложений, полное техзадание.

Anufriev

21-05-2012 13:20 1919816

изменил тех задание в первом посте

Iska	21-05-2012 16:06 1919925

Как-то так (не проверялось):

Код:

Option Explicit





Dim dtCurrDate

Dim strFormattingDate



dtCurrDate = Now()

strFormattingDate = Right("0000" & Year(dtCurrDate), 4) & "." & Right("00" & Month(dtCurrDate), 2) & "." & Right("00" & Day(dtCurrDate), 2)



With WScript.CreateObject("Scripting.FileSystemObject")

        If .FolderExists("D:\DAT") Then

                If .FolderExists("C:\bnk\DAT") Then

                        If Not .FolderExists("D:\" & strFormattingDate) Then

                                .GetFolder("D:\DAT").Name = strFormattingDate

                                .CopyFolder "C:\bnk\DAT", "D:\DAT", True

                        Else

                                WScript.Echo "Folder [D:\" & strFormattingDate & "] already exists"

                        End If

                Else

                        WScript.Echo "Folder [C:\bnk\DAT] not found"

                End If

        Else

                WScript.Echo "Folder [D:\DAT] not found"

        End If

End With



WScript.Quit 0

Anufriev

21-05-2012 18:13 1920002

Спасибо огромное, скрипт работает, в пути только небольшая опечатка была

Iska	22-05-2012 00:44 1920131

Цитата:

Цитата Anufriev

…в пути только небольшая опечатка была »

Скажете где — я поправлю код в предыдущем посте.

Anufriev

22-05-2012 08:11 1920196

.CopyFolder "C:\bnk\DAT ", "D:\DAT", True

а то он берет всю папку BNK и копирует с переименованием в DAT на диск D

и еще вопрос тогда, то что по завершению работы скрипта выдать сообщение о завершении возможно, а возможно ли проконтролировать полное копирование папки, а после выдать сообщение о том что обновление завершено?

p.s. а если это сообщение будет выскакивать на другом ПК (естественно на определенном), то это было бы просто невероятно:)

Время: 20:32.