B4J Question How to rename a USB Stick

johnmie · Mar 27, 2025

Hi there,
for building a DB catalogue of my 30+ USB sticks to better remember where to find old stuff, I would like to rename some of the display names (other than manually in properties of the explorer).
I started with Erel's files treeview and found RunMethod("getSystemDisplayName"... in the forum but not the corresponding set, modify or create the name.
This is essential to avoid confusion and duplicates. Alternatively I could live with a serial number if such a thing existed

Also it would be nice to show the sizes of each folder so that I would not have to loop through the entire file list. The only fx command I found just tells me the amount of unused space on stick. There must be a fx method for that, but how to find and implement it?

Any help will be greatly appreciated and thanks in advance,
johnmie

Erel · Mar 30, 2025

B4X:

Private Sub RenameDrive (Drive As String, NewName As String) As ResumableSub
    Dim shl As Shell
    shl.Initialize("shl", File.Combine(GetEnvironmentVariable("windir", "N/A"), "System32\label.exe"), Array(Drive, NewName))
    shl.Run(-1)
    Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log(StdOut)
    Log(StdErr)
    Return Success And ExitCode = 0
End Sub

Usage:

B4X:

Wait For (RenameDrive("H:", "Test3")) Complete (Success As Boolean)
Log("renamed successfully? " & Success)

Erel · Mar 30, 2025

B4X:

Private Sub RenameDrive (Drive As String, NewName As String) As ResumableSub
    Dim shl As Shell
    shl.Initialize("shl", File.Combine(GetEnvironmentVariable("windir", "N/A"), "System32\label.exe"), Array(Drive, NewName))
    shl.Run(-1)
    Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log(StdOut)
    Log(StdErr)
    Return Success And ExitCode = 0
End Sub

Usage:

B4X:

Wait For (RenameDrive("H:", "Test3")) Complete (Success As Boolean)
Log("renamed successfully? " & Success)

johnmie · Mar 30, 2025

Erel said:

B4X:

Private Sub RenameDrive (Drive As String, NewName As String) As ResumableSub
    Dim shl As Shell
    shl.Initialize("shl", File.Combine(GetEnvironmentVariable("windir", "N/A"), "System32\label.exe"), Array(Drive, NewName))
    shl.Run(-1)
    Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log(StdOut)
    Log(StdErr)
    Return Success And ExitCode = 0
End Sub

Usage:

B4X:

Wait For (RenameDrive("H:", "Test3")) Complete (Success As Boolean)
Log("renamed successfully? " & Success)

This is great and works beautifully.
Thank you very much, Erel,
john

B4J Question How to rename a USB Stick

johnmie

Active Member

Erel

Erel

B4X founder

johnmie

Active Member

Similar Threads

B4J Question How to rename a USB Stick

johnmie

Active Member

Erel

B4X founder

johnmie

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency