خط اول کد نویسی ، کپی نمیکنه. اینو تست کنید ، دسترسی خواندن و نوشتن رو بدید.
If File.Exists(File.DirRootExternal , "border.zip" ) = False Then
File.Copy(File.DirAssets , "border.zip" , File.DirRootExternal , "border.zip")
End If
P7zip.Initialize("P7Zip")
P7zip.ExtractPassword("border" , File.DirRootExternal & "/border.zip" , File.DirRootExternal & "/border" , "1234")