🚀 go-pugleaf

Is this what your after?

REQ: form, label, common dialog control & command button

Private Sub Command1_Click()
 ' Set CancelError is True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Set flags
  CommonDialog1.Flags = cdlOFNHideReadOnly
  ' Set filters
  CommonDialog1.Filter = "All Files (*.*)|*.*|"
  ' Specify default filter
  CommonDialog1.FilterIndex = 2
  ' Display the Open dialog box
  CommonDialog1.ShowOpen
  ' Display name of selected file
  Dim A As Integer, FullFileName As String

  FullFileName = CommonDialog1.FileName

  For A = 0 To 1000

    'take out directories from the full file path
    If InStr(1, FullFileName, "\") Then

        FullFileName = Mid(FullFileName, InStr(1, FullFileName, "\") _
        + 1, Len(FullFileName) - InStr(1, FullFileName, "\"))

    Else

    Exit For

    End If

Next A

'Change first letter to b
Label1.Caption = "b" & Mid(FullFileName, 2, Len(FullFileName) - 1)
Exit Sub

ErrHandler:
  'User pressed the Cancel button
  Exit Sub
End Sub

Well, if the OP just wants the filename/extension pair, and will be
discarding the rest of the path, that would work fine.  But if he
wants to retain the entire path (i.e., "C:\MyFiles\Important.xls" =>
"C:\MyFiles\bmportant.xls"), he needs to work forward from the end.

Dim aNum as Integer, len as Integer, before as Integer, _
                                     after as Integer
Dim OldPath as String, aChar as String, NewPath as String

'CommonDialog code goes here, to get OldPath, including filename

len = Length(OldPath)  ' *1
before = 0       ' Assume no path precedes filename/exten, so we...
after = len - 1  ' ...want everything from the second character on.

For aNum = len to 1 Step -1         ' Begin at the end & work forward
    aChar = Mid(OldPath, aNum , 1)  ' Checking each character.
    If aChar = "\" Or aChar = ":" Then  ' *2
        before = aNum               ' When a Dir symbol is found,...
        after = (len - aNum) - 1    ' ...keep all up to the symbol...
        Exit Loop                   ' ...& all after filename initial.
      End If
  Next aNum 

NewPath = Left(OldPath, before) & "b" & Right(OldPath, after) ' *3

' *1  I doubt if it is possible for CommonDialog to return a path of
'     the form "myfile.foo", but we have to initialize "before" and
'     "after" to *something*!
' *2  I don't remember whether it is possible for CommonDialog to
'     return a path of the form "C:myfile.foo" (that is, a "path"
'     without at least one backslash); if not, remove the colon test
'     and the aChar variable, changing the test line to:
'               If Mid(OldPath, aNum , 1) = "\" Then
' *3  Don't trust my untested, off-the-cuff code!  Key this in and
'     TEST IT before you use it!


Another approach would be:

For aNum = 1 to Length(OldPath)    ' aNum2 will identify final...
    aChar = Mid(OldPath, aNum , 1) ' ...occurance of Dir delimiter
    If aChar = ":" Or aChar = "\" then aNum2 = aNum
  Next aNum
NewPath = Left(OldPath, aNum2) & "b" & _
                     Right(OldPath, (Length(OldPath) - aNum2) - 1 )


or simplest of all, *IF* the filepath returned by CommonDialog
must always include at least one backslash:

Dim aNum as Integer, OldPath as String, NewPath as String
For aNum = Length(OldPath) to 1 Step -1
    If Mid(OldPath, aNum , 1) = "\" Then Exit Loop
  Next aNum
NewPath = Left(OldPath, aNum) & "b" & _
                      Right(OldPath, (Length(OldPath) - aNum) - 1 )

-Richard

======================================================================
                Richard Hopley, Winston-Salem, NC, USA 
rhopley@earthlink.net                                   1-301-775-0471
      Nothing really matters except Boats, Sex, and Rock'n'Roll.
rhopley@wfubmc.edu                                      1-336-713-5077
  OK, OK; computer programming for scientific research also matters.
"Visual Boodu .NET" <sn@il.mail> wrote in message news:<aOyda.4231$L57.39496@news-server.bigpond.net.au>...
> Is this what your after?
> 
> REQ: form, label, common dialog control & command button
> 
> Private Sub Command1_Click()
>  ' Set CancelError is True
>   CommonDialog1.CancelError = True
>   On Error GoTo ErrHandler
>   ' Set flags
>   CommonDialog1.Flags = cdlOFNHideReadOnly
>   ' Set filters
>   CommonDialog1.Filter = "All Files (*.*)|*.*|"
>   ' Specify default filter
>   CommonDialog1.FilterIndex = 2
>   ' Display the Open dialog box
>   CommonDialog1.ShowOpen
>   ' Display name of selected file
>   Dim A As Integer, FullFileName As String
> 
>   FullFileName = CommonDialog1.FileName
> 
>   For A = 0 To 1000
> 
>     'take out directories from the full file path
>     If InStr(1, FullFileName, "\") Then
> 
>         FullFileName = Mid(FullFileName, InStr(1, FullFileName, "\") _
>         + 1, Len(FullFileName) - InStr(1, FullFileName, "\"))
> 
>     Else
> 
>     Exit For
> 
>     End If
> 
> Next A
> 
> 'Change first letter to b
> Label1.Caption = "b" & Mid(FullFileName, 2, Len(FullFileName) - 1)
> Exit Sub
> 
> ErrHandler:
>   'User pressed the Cancel button
>   Exit Sub
> End Sub

Thanks, That did the trick!!! I used the first example.

HTH,

-R

======================================================================
                Richard Hopley, Winston-Salem, NC, USA 
rhopley@earthlink.net                                   1-301-775-0471 
      Nothing really matters except Boats, Sex, and Rock'n'Roll.
rhopley@wfubmc.edu                                      1-336-713-5077
  OK, OK; computer programming for scientific research also matters.
======================================================================


"Freak" <freak@austin.rr.com> typed:

> Thanks, That did the trick!!! I used the first example.