Code: Select all
executedFilename.s = ProgramFilename()
executedFromFile.s = GetFilePart(executedFilename, #PB_FileSystem_NoExtension)
Procedure msgbox(input.s)
MessageRequester("Notice" , input)
EndProcedure
; Command line arguments
userID.s = ""
If FindString(executedFromFile, "_")
userID.s = StringField(executedFromFile, 2, "_")
msgbox(userID)
Else
msgbox("Invalid filename")
EndIf
DeleteFile(executedFilename)