import anywheresoftware.b4a.objects.IntentWrapper;
import anywheresoftware.b4a.objects.Service;
import java.io.IOException;
public Sub EjectExternalDrive
Dim driveDetector As DriveDetector
driveDetector.Initialize("driveDetector")
If driveDetector.IsUSBDriveConnected Then
Dim driveLetter As String
driveLetter = driveDetector.GetUSBDriveLetter
Try
Dim p As String
p = "cmd /c echo off && echo list disk | diskpart && echo select disk " & driveLetter & " && echo offline disk && echo. | diskpart"
Dim su As ShellUtil
su.Initialize("su", Me)
su.ShellCommand(p, Null, Null)
su.Run(5000)
Catch
Log("Error: " & LastException.Message)
End Try
Else
Log("No external drive connected.")
End If
End Sub