رفتن به مطلب

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

AMiN.M7892

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

پست های پیشنهاد شده

AMiN.M7892    1,028

سلام دوستان،

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

یادتون نره کتابخونه ی 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

موفق باشید:DD:

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

×
×
  • جدید...