| | 493 | end sub |
|---|
| | 494 | |
|---|
| | 495 | |
|---|
| | 496 | '' |
|---|
| | 497 | ' Checks the the path doesn't contain characters the tools cannot deal with. |
|---|
| | 498 | sub CheckSourcePath |
|---|
| | 499 | dim sPwd; |
|---|
| | 500 | |
|---|
| | 501 | sPwd = PathAbs(g_strPath); |
|---|
| | 502 | if InStr(1, sPwd, " ") > 0 then |
|---|
| | 503 | MsgError "Source path contains spaces! Please move it. (" & sPwd & ")" |
|---|
| | 504 | end if |
|---|
| | 505 | if InStr(1, sPwd, "$") > 0 then |
|---|
| | 506 | MsgError "Source path contains the '$' char! Please move it. (" & sPwd & ")" |
|---|
| | 507 | end if |
|---|
| | 508 | if InStr(1, sPwd, "%") > 0 then |
|---|
| | 509 | MsgError "Source path contains the '%' char! Please move it. (" & sPwd & ")" |
|---|
| | 510 | end if |
|---|
| | 511 | if InStr(1, sPwd, Chr(10)) > 0 _ |
|---|
| | 512 | Or InStr(1, sPwd, Chr(13)) > 0 _ |
|---|
| | 513 | Or InStr(1, sPwd, Chr(9)) > 0 _ |
|---|
| | 514 | then |
|---|
| | 515 | MsgError "Source path contains control characters! Please move it. (" & sPwd & ")" |
|---|
| | 516 | end if |
|---|
| | 517 | Print "Source path: OK" |
|---|
