Подскажите как переименовать папку в VB

[Brisvall]

Подскажите как переименовать папку в VB

[A.A.Z.]

1)

Код: Выделить всё

Private Sub Form_Load()
Name "C:\12345" As "C:\54321"
End Sub


2)

Код: Выделить всё

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Form_Load()
MoveFile "C:\12345", "C:\54321"
End Sub


3)
Подключаешь в ссылках (Project->References / Проект->Ссылки) "Microsoft Scripting Runtime"

Код: Выделить всё

Private Sub Form_Load()
Dim FSO As New Scripting.FileSystemObject
FSO.MoveFile "C:\12345", "C:\54321"
End Sub

[skiperski]

1)

Код: Выделить всё

Private Sub Form_Load()
Name "C:\12345" As "C:\54321"
End Sub


С последними двумя примерами всё ясно, а вот кто ещё кроме A.A.Z. знал о такой конструкции? Я, например, за пять лет ни разу её не встречал и сейчас приятно удивлён.

[alibek]

skiperski, GWBasic надо было учить Там этот оператор был просто незаменим, т.к. выполнять команды DOS (типа Shell) он не умел и приходилось на полную катушку использовать все, что позволял GWBasic

[skiperski]

skiperski, GWBasic надо было учить

Каюсь, каюсь! А я по-незнанию начал с изучения Паскаля . Что теперь будет-то?