run different files depending on removable drive designation

[John Cunradi]

I want to run a batch file that depends on what drive is the removable drive on the PC. This drive designation will change from user to user so I can't use fixed batch files.

For example:
If the removable drive is drive F:,then I want to run F.bat
If the removable drive is drive G:,then I want to run G.bat, and so on.

I've got the first part of determining which drive is the removable one, here it is:

dim drvs as c
dim cnt as n
dim dr as c
dim dr_sp as n
drvs=file.drives_get(crlf())
cnt=line_count(drvs)
for i=1 to cnt
dr=substr(word(drvs,i,crlf()),1,2)
dr_sp=FILE.DRIVE_SPACE_AVAIL(dr)
if file.drive_type(dr)="Removable"
if dr_sp>0

[Stan Mathews]

Re: run different files depending on removable drive designation

What's your command to run a named bat file?

This works here....

sys_shell("c:\test.bat")
[COLOR="blue"]'batch file named test executes[/COLOR]


[COLOR="blue"]'to substitute a known variable[/COLOR]
dr = "test"
sys_shell("c:"+chr(92)+dr+".bat")
[COLOR="Blue"]'batch file named test executes[/COLOR]

[John Cunradi]

Re: run different files depending on removable drive designation

I don't know what the command would be yet, that's part of the question.

As a batch file(MSDOS) command it would be (if the F: drive were the removable drive) C:\ScanShark_Processing\Sync_F.bat

I don't know XBasic code well. My XBasic skill level is OK. I can generally modify code to reflect my paths, etc. but writing new code is beyond my skill level. Even at that, I've managed to write an app that beats, at most levels, a comparable app written by a company that grosses about a billion per year.

If I could rely on my customers to know what drive designation they're using, I would have been done by now and wouldn't be bothering you. I do appreciate the help.

[aschone]

Re: run different files depending on removable drive designation

Building off of what Stan posted using the sys_shell.

sys_shell("C:\ScanShark_Processing\Sync_" + left(dr,1) +".bat")

[Stan Mathews]

Re: run different files depending on removable drive designation

Variable holding the drive letter is dr ?

Command is

Sys_shell("C:\ScanShark_Processing\Sync_"+dr+".bat")

[John Cunradi]

Re: run different files depending on removable drive designation

I tried Stans line of code. I got an "out of memory" error even though the thumb drive was completely empty (2 GB drive) and I had just a few megs of data.

The batch file tests OK and the thumb drive had plenty of space in that circumstance.

-------Here's the whole string of code--------

dim drvs as c
dim cnt as n
dim dr as c
dim dr_sp as n
drvs=file.drives_get(crlf())
cnt=line_count(drvs)
for i=1 to cnt
dr=substr(word(drvs,i,crlf()),1,2)
dr_sp=FILE.DRIVE_SPACE_AVAIL(dr)
if file.drive_type(dr)="Removable"
if dr_sp>0
Sys_shell("C:\ScanShark_Processing\Sync_"+dr+".bat")
end if
end if
next

[Stan Mathews]

Re: run different files depending on removable drive designation

Add the indicated line.

dim drvs as c
dim cnt as n
dim dr as c
dim dr_sp as n
drvs=file.drives_get(crlf())
cnt=line_count(drvs)
for i=1 to cnt
dr=substr(word(drvs,i,crlf()),1,2)
[COLOR="Red"]ui_msg_box("Alert","Drive found is ("+dr+")")[/COLOR]
dr_sp=FILE.DRIVE_SPACE_AVAIL(dr)
if file.drive_type(dr)="Removable"
if dr_sp>0
Sys_shell("C:\ScanShark_Processing\Sync_"+dr+".bat")
end if
end if
next

If you see any spaces inside the parentheses, you need to trim your dr variable. An incorrect command

Sys_shell("C:\ScanShark_Processing\Sync_F .bat")
Sys_shell("C:\ScanShark_Processing\Sync_ F.bat")

would result in the indicated error. (system memory, not drive space)

In my previous example

sys_shell("c:\test .bat")
ERROR: Out of memory

[John Cunradi]

Re: run different files depending on removable drive designation

With the new line of code, I get messages boxes saying drive found is C, then I click OK and I get Drive found is D, etc. until I click OK on the F: drive (my removable drive) and get the "out of memory" message.

[Stan Mathews]

Re: run different files depending on removable drive designation

Try it this way then, I put the line in the wrong place.

dim drvs as c
dim cnt as n
dim dr as c
dim dr_sp as n
drvs=file.drives_get(crlf())
cnt=line_count(drvs)
for i=1 to cnt
dr=substr(word(drvs,i,crlf()),1,2)
dr_sp=FILE.DRIVE_SPACE_AVAIL(dr)
if file.drive_type(dr)="Removable"
if dr_sp>0
[COLOR="Red"]ui_msg_box("Alert","Drive found is ("+dr+")")
ui_msg_box("Alert","Batch file to run is "+quote("C:\ScanShark_Processing\Sync_"+dr+".bat"))[/COLOR]
Sys_shell("C:\ScanShark_Processing\Sync_"+dr+".bat")
end if
end if
next

You should see the message in my screenshot with no spaces.

[John Cunradi]

Re: run different files depending on removable drive designation

We're getting closer.

instead of running SYNC_F.bat it's trying to run SYNC_F:.bat

[aschone]

Re: run different files depending on removable drive designation

This will remove the colon.

Building off of what Stan posted using the sys_shell.

sys_shell("C:\ScanShark_Processing\Sync_" + left(dr,1) +".bat")

[John Cunradi]

Re: run different files depending on removable drive designation

Thanks Stan and Andy.

That did the trick. I owe you both a beer...actually, by now, I owe Stan a whole case for all the times he's helped me over the years.

By the way, in case anybody's interested, here the whole string of code with the messages cleaned up:

dim drvs as c
dim cnt as n
dim dr as c
dim dr_sp as n
drvs=file.drives_get(crlf())
cnt=line_count(drvs)
for i=1 to cnt
dr=substr(word(drvs,i,crlf()),1,2)
dr_sp=FILE.DRIVE_SPACE_AVAIL(dr)
if file.drive_type(dr)="Removable"
if dr_sp>0
sys_shell("C:\ScanShark_Processing\Sync_" + left(dr,1) +".bat")
end if
end if
next