Hi
Mike Sutton gave me a link to this code, but I would like to extend its
search power but I am not sure how to do this can you help please.

Option Explicit
Private Declare Function SHGetSpecialFolderPath Lib "Shell32.dll" Alias _
    "SHGetSpecialFolderPathA" (ByVal hWndOwner As Long, ByVal lpszPath As
String, _
    ByVal nFolder As Long, ByVal fCreate As Long) As Long

Private Const CSIDL_MYMUSIC As Long = &HD
Private Const MAX_PATH As Long = 260
Private gName As String


Private Sub Form_Load()
gName = InputBox("Enter Name", "Get Name", , 5000, 3000)
    Debug.Print """" & GetMyMusicFolder() & "\" & gName ' """"
    Text1.Text = GetMyMusicFolder & "\" & gName
End Sub

Private Function GetMyMusicFolder() As String
    Dim StrBuf As String

    StrBuf = Space$(MAX_PATH)
    If (SHGetSpecialFolderPath(Me.hWnd, StrBuf, CSIDL_MYMUSIC, 0&)) Then _
        GetMyMusicFolder = TrimNull(StrBuf)
End Function

Private Function TrimNull(ByRef inString As String) As String
    Dim NullPos As Long

    NullPos = InStr(1, inString, vbNullChar)
    If (NullPos) Then TrimNull = Left$(inString, NullPos - 1) Else TrimNull
= inString
End Function
'***

'Here 's a quick function for you, drop a text box on a form then set it's
'MultiLine property to "True" and it's ScrollBars property to "3 - Both" then
'paste this code in and run:

I have changed it slightly and it does show the path I want, but I want the
user to know that there is a CD in his/her My Music  folder of  say "An
Artists Name" type "The Name" into a text box or inputbox and get the path to
that artists. Can this be done please

<code snipped>
Use the Dir() function on the path you're currently getting to list all the files/folders in there, and see if any match
your search criteria.
Hope this helps,

    Mike


- Microsoft Visual Basic MVP -
E-Mail: ED***@mvps.org
WWW: Http://EDais.mvps.org/

Hi Mike
Sorry as I am still trying to learn Vb can you expand on what you said in
your last post to use Dir() function.
Thanks

Show quoteHide quote

Try this:

'***
Private Sub ScanMusicFolder()
    Dim MusicPath As String
    Dim DirRet As String

    MusicPath = AppendTrailingSlash(GetMyMusicFolder())

    DirRet = Dir$(MusicPath, vbAlias - 1)
    Do While Len(DirRet)
        If (GetAttr(MusicPath & DirRet) And vbDirectory) Then
            If (Len(Replace(DirRet, ".", ""))) Then _
                Debug.Print "FOLDER: " & DirRet
        Else
            Debug.Print "FILE: " & DirRet
        End If

        DirRet = Dir$()
    Loop
End Sub

Public Function AppendTrailingSlash(ByRef inPath As String, _
    Optional ByVal inPathDelimiter As String = "\") As String
    If (Right$(inPath, Len(inPathDelimiter)) = inPathDelimiter) Then _
        AppendTrailingSlash = inPath Else _
        AppendTrailingSlash = inPath & inPathDelimiter
End Function
'***

Hope this helps,

    Mike


- Microsoft Visual Basic MVP -
E-Mail: ED***@mvps.org
WWW: Http://EDais.mvps.org/

Hi Mike
Thank you very much, I am now building the code and the results are as I
wanted. Thank you for you time and trouble

Show quoteHide quote

Resource icon issue
default property of class
What kind of value is that...?
Math problem
vb5 & Access 2003
Problem converting bytes array into string
Predictive dialer
Keyboard hook callback executing twice?
Find Path from VB
Program uses Access Connection, PC's do not have Access Installed