āĻāĻĒāύি āĻāĻĒāύাāϰ āĻĒāϰিāĻিāϤ āĻাāϰো āĻĒেāύ āĻĄ্āϰাāĻāĻে āĻুāĻŦ āĻুāϰুāϤ্āĻŦāĻĒূāϰ্āĻŖ āĻোāύ āϤāĻĨ্āϝ/āϏāĻĢāĻāĻā§্āϝাāϰ/āĻিāĻāĻোāϰিā§াāϞ āĻĻেāĻāϤে āĻĒাāϰেāύ; āĻিāύ্āϤু āϞāĻ্āĻাāϰ āĻাāϤিāϰে āĻিংāĻŦা āϤাāϰ āĻাāĻে āĻাāĻāϞে āϏে āĻŽুāĻেāϰ āĻāĻĒāϰ āύা āĻŦāϞে āĻĻিāϤে āĻĒাāϰে āĻāĻ āĻেāĻŦে āĻāĻĒāύি āĻāϰ āϤাāϰ āĻাāĻে āĻাāĻāϤেāĻ āĻĒাāϰেāύ āύা। āĻāĻŦাāϰ āĻ āϤāĻĨ্āϝ/āϏāĻĢāĻāĻā§্āϝাāϰ/āĻিāĻāĻোāϰিā§াāϞ āĻĒেāϞে āĻāĻĒāύি āĻীāώāĻŖ āĻāĻĒāĻৃāϤ āĻšāĻŦেāύ। āĻāϰ āĻāĻ āĻāύ্āϝāĻ āĻāĻĒāύাāĻে āĻāĻŽāύ āĻোāύ āĻĒāĻĻ্āϧāϤি āĻ
āĻŦāϞāĻŽ্āĻŦāύ āĻāϰāϤে āĻšāĻŦে āϝাāϤে āĻ āϤāĻĨ্āϝ/āϏāĻĢāĻāĻā§্āϝাāϰ/āĻিāĻāĻোāϰিā§াāϞ āĻāĻĒāύি āύিāĻŽিāώেāĻ āĻāĻĒāύাāϰ āϞ্āϝাāĻĒāĻāĻĒ/āĻĄেāĻ্āϏāĻāĻĒে āĻāĻĒি āĻāϰে āύিāϤে āĻĒাāϰেāύ। āĻāϰ āĻāĻ āĻŦ্āϝাāĻĒাāϰāĻা āĻ āĻĒেāύ āĻĄ্āϰাāĻāĻেāϰ āĻŽাāϞিāĻ āϏাāϰাāĻĻিāύ āĻāĻĒāύাāϰ āϞ্āϝাāĻĒāĻāĻĒ/āĻĄেāĻ্āϏāĻāĻĒে āϤাāĻিā§ে āĻĨাāĻāϞেāĻ āĻোāĻĨা āĻĻিā§ে āϝে āĻি āĻšāĻ্āĻে āϏেāĻা āϏে āĻিāĻুāĻ āĻŦুāĻāϤে āĻĒাāϰāĻŦে āύা। āĻāĻĒāύাāĻে āĻļুāϧু āĻāϞে āĻŦāϞে āĻৌāĻļāϞে āϤাāĻে āĻিāĻু āĻĻেāĻŦাāϰ āύাāĻŽ āĻāϰে āϤাāϰ āĻĒেāύ āĻĄ্āϰাāĻāĻāĻিāĻে āĻāĻĒāύাāϰ āϞ্āϝাāĻĒāĻāĻĒ/āĻĄেāĻ্āϏāĻāĻĒে āĻāύāϏাāϰ্āĻ āĻāϰাāϤে āĻšāĻŦে। āĻŦ্āϝাāϏ āĻāĻĒāύাāϰ āĻĻাā§িāϤ্āĻŦ āĻļুāϧুāĻ āĻāϤāĻুāĻু। āĻŦাāĻি āĻাāĻāĻুāĻু āĻ
āĻোāĻŽেāĻিāĻ āĻাāĻŦে āĻšā§ে āϝাāĻŦে। āĻāĻ āĻিāĻĄিāĻ āĻিāĻāĻোāϰিā§াāϞে āĻāĻŽি āĻĻেāĻিā§েāĻি āĻিāĻাāĻŦে āĻāĻĒāύি āϞুāĻিā§ে āĻ
āύ্āϝেāϰ āĻĒেāύ āĻĄ্āϰাāĻāĻেāϰ āĻĄেāĻা āĻāĻĒি āĻāϰে āύিāϤে āĻĒাāϰāĻŦেāύ।
āĻোāĻĄ āĻুāϞি āĻĒেāϤে āύিāĻেāϰ āϞিāĻ্āĻে āĻ্āϞিāĻ āĻুāϰুāύ
VIDEO
[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()
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