تابع تغییر نام فایل

[AMiN.M7892 1,029]

سلام دوستان،

امروز این تابع رو که از اسمش هم پیداست که کارش "تغییر نام فایل" هست رو براتون قرار میدم. امیدوارم براتون کاربردی باشه.

یادتون نره کتابخونه ی Phone رو تیک بزنید!!

Sub RenameFile(OriginalFileName As String, NewFileName As String) As Boolean
    Dim Result As Int
    Dim StdOut, StdErr As StringBuilder
    StdOut.Initialize
    StdErr.Initialize
    Dim Ph As Phone
    Result = Ph.Shell("mv " & OriginalFileName & " " & NewFileName, Null,  StdOut, StdErr)
    If Result = 0 Then
        Return True
    Else
        Return False
    End If
End Sub

موفق باشید