راهنمایی نوشتن برنامه تغییر فرمت ساده با vbs

سلام ما توی اداره یه نامه هایی اسکن شده برامون از سیستم میفرستن که اینا عکس هستن با پسوند tif ولی وقتی ارسال میشه به ما پسوند نداره . حالا من یه برنامه میخوام که اینا رو بهش پسوند تیف بده . این اصل ماجراست. نکته هایی که برام مهمه ایناست. ۱: چون از فایرفاکس دانلود میکنیم فایلها اول توی تمپ ذخیره میشن و من میخوام جدیدترین فایلی که اونجا ذخیره شده که همون عکسه هست رو پیدا کنه و با تغییر فرمت به تیف اونو برام اجرا کنه با windows photo viewer یعنی من اول توی فایرفاکس که رو عکسه زدم و رفت توی تمپ نشست بیام بیرون از فایرفاکس و روی اون برنامه کلیک کنم عکسه باز شه و پرینت بگیرم چون اون عکسه که فرمت نداره میتونم با فوتو ویوور بازش کنم ولی نمیتونم پرینت بگیرم و ویندوز میگه حتما باید پسوند داشته باشه . نمیدونم تونستم منظورمو برسونم.

Sent from my G760-L01 using Tapatalk

سلام..//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
بفرمایید...///// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**********************

کد:

---

Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
path = fso.GetSpecialFolder(2)
For Each file in fso.GetFolder(path).Files
    If (recentFile is Nothing) Then
        Set recentFile = file
    ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
        Set recentFile = file
    End If
Next


If not(recentFile is Nothing) Then
    If (right(recentFile.Name, 4) <> ".tif") Then _
        recentFile.Name = recentFile.Name & ".tif"
       
    CreateObject("wscript.shell").run path & "\" & recentFile.Name
End If

---

******************
با توجه به اینکه برنامه های زیادی از مسیر Temp به صورت اشتراکی استفاده می کنند../// در صورتی که فایل عکس جدیدترین فایل در این مسیر نباشه امکان بروز خطا در این برنامه و برنامه های دیگه بیشتر میشه../// پس بهتره از یه مسیر دیگه برای ذخیره سازی عکس ها استفاده کنید.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خب اون مسیر رو اگه درایو سی و پوشه image بزارم کد کدوم قسمت رو تغییر بدم

Sent from my G760-L01 using Tapatalk

سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
مقدار متغییر path رو برابر با مسیر پوشه انتخابی تون قرار بدین..//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**********************

کد:

---

Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
path = "C:\Image"
For Each file in fso.GetFolder(path).Files
    If (recentFile is Nothing) Then
        Set recentFile = file
    ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
        Set recentFile = file
    End If
Next


If not(recentFile is Nothing) Then
    If (right(recentFile.Name, 4) <> ".tif") Then _
        recentFile.Name = recentFile.Name & ".tif"
       
    CreateObject("wscript.shell").run path & "\" & recentFile.Name
End If

---

******************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنونم دوست عزیز کارم راه افتاد .

Sent from my G760-L01 using Tapatalk