Rename File Atau Folder

Rename File Atau Folder

Ini ada sebuah source code program visual basic 6 "Rename File Atau Folder"
bagi anda yang suka bermain-main dengan visual basic dan ingin menggunakan source code ini lalu mau dikembangkan silahkan saja tapi jangan lupa untuk selalu mampir ke blog kami OperateRPM

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
 Const FO_DELETE = &H3
 Const FO_RENAME = &H4
 Const FO_COPY = &H2

Sub RenameFile()
Dim NewFileName As String
Dim TitleFile
Dim PathFile
'On Error Resume Next
TitleFile = "Baru"
PathFile = "D:\Lama"
NewFileName = InputBox("Selected Directory To Rename File Chance---> " & """" & TitleFile & """?", _
        "Rename File", PathFile)
Dim SHDirOp As SHFILEOPSTRUCT
    With SHDirOp
        .wFunc = FO_RENAME
        .pFrom = "D:\BARU"
        .pTo = NewFileName
    End With
SHFileOperation SHDirOp
End Sub

Private Sub Form_Load()
    RenameFile
End Sub

Thank's for reading the articelRename File Atau Folder .If You want to copy paste your website please tag my link Rename File Atau Folder Intro My Website.
<a href="http://operaterpm.blogspot.com/2013/08/rename-file-atau-folder.html"><a href="http://adf.ly/Uey83" target="_blank">Rename File Atau Folder</a></a>