অনেক দিন পরে আজ একটি টিউটোরিয়াল লিখছি।অনেকেই এই প্রশ্ন করেছেন যে কিভাবে ভিজুয়াল বেসিকে কোন ফাইলের সাইজ এবং সর্বশেষ মডিফায়েড ডেট রিড কয়া যায়।তাই আজ একটু আলোচনা করব
২ ভাবে কোন ফাইলের লাস্ট মডিফায়েড ডেট পাওয়া যেতে পারে
Dim MyStamp As Date ‘ভেরিয়াবল
MyStamp = FileDateTime("C:\TESTFILE.txt") ‘ফাইল প্যাথ
এখানে প্রথমে একটি ভেরিইয়াবল ডিক্লেয়ার করা হয়েছে যার নামে MyStamp এবং এটি #ডেট টাইপ ভেরিয়াবল অর্থাৎ তারিইখ সঙ্ক্রান্ত কাজ করবে এটি।
এর পরে MyStamp = FileDateTime("C:\TESTFILE.txt অর্থাৎ প্রথমে MyStamp এর মধ্যে Testfile.txt কে চেক করা হয়েছে এবং FileDateTime হলো ঐ ফাইলের মডিফায়েড ডেট পাওয়ার ফাংশন J
আরেকটি পদ্ধতি হলো
প্রথমে (Project->References...) এ গিয়ে the Microsoft Scripting Runtime এড করেন
তারপরে
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.GetFile("C:\foo.txt")
Debug.Print fil.DateLastModified
এখানে File System Objectt ব্যাবহার করা হয়েছে।
এর পরে Fil নামের এবং File Type ভেরিয়াবল ডিল্কেয়ার করা হয়েছে
এর পরে Set Fil=fso.getfile(“c:\foo.txt”) অর্থাৎ (“c:\foo.txt”) এই ফাইলের ইনফর্মেশন রিড করা হলো তারপরে Debug.Print fil.DateLastModified এর মাধ্যমে প্রিন্ট করা হলো লাস্ট মডিফায়েড ডেট।
এবার ফাইল সাইজ বের করব
এটি বের করার জন্যেও ২ টি পদ্ধতি আছে
Dim ret As Long 'ret নামের long type ভেরিয়াবল
ret = FileLen("c:\someFile.ext") 'ret=FileLen হলো সাইজ বের করার ফাংশন এর পরে প্যাথ
এখন me.caption=ret দিলেই আউতপুট পাবেন অথবা একতি লেবেল নিয়ে ও তাতে ret প্রিন্ট করতে পারেন।
আরেকটি পদ্ধতি হলো
প্রথমে (Project->References...) এ গিয়ে the Microsoft Scripting Runtime এড করেন
Dim fso As New FileSystemObject
Dim f As File
'Get a reference to the File object.
Set f = fso.GetFile("C:\TestIt.txt")
এখানে File System Object ব্যাবহার করা হয়েছে।
এর পরে F নামের এবং File Type ভেরিয়াবল ডিল্কেয়ার করা হয়েছে
এর পরে Set f = fso.GetFile("C:\TestIt.txt")অর্থাৎ ("C:\TestIt.txt")এই ফাইলের ইনফর্মেশন রিড করা হলো তারপরে Debug.Print fil.DateLastModified এর মাধ্যমে প্রিন্ট করা হলো লাস্ট মডিফায়েড ডেট।
ধন্যবাদ আজ এ পর্যন্তই :)
