Программа по замене названия папки - можно создать или нет ? - VB

Формулировка задачи:

Здравствуйте, можно ли создать в VB программу, которая меняет имя папки по заданному пути и затем по клику второй кнопки меняет на начальное ? Если да, то подскажите код.

Решение задачи: «Программа по замене названия папки - можно создать или нет ?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
 
Private Sub Command1_Click()
    Dim fSrc    As String
    Dim fDst    As String
    Dim lr      As Long
    
    fSrc = "c:\temp"
    fDst = "h:\temp2"
    
    lr = MoveFile(ByVal fSrc, ByVal fDst)
    If lr <> 0 Then
        MsgBox "Success"
    End If
End Sub

Оцени полезность:

6 голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы