VBA - determine name of the file

[eurano]

Hi
In following directory I have file wich in every computer is named differently and I want to write function wich allow me to determine the name of this file. The extension is ".nsf" and its allways the only file in this directory. I made the code but it doesnt work.

C:\Users\kuckam\AppData\Local\IBM\Notes\Data\mail\gdansk

Function GetNSF(ByRef strFileName As String) As Boolean


On Error Resume Next
strFileName = Dir(Environ("COMPUTERNAME") & "\Local\IBM\Notes\Data\Mail\gdansk\*.nsf")

GetNSF = (strFileName <> vbNullString)

End Function

Sub test()


Dim strFileName As String
If GetNSF(strFileName) Then
Debug.Print strFileName
End If

End Sub

 

[Fishboy]

Hi
In following directory I have file wich in every computer is named differently and I want to write function wich allow me to determine the name of this file. The extension is ".nsf" and its allways the only file in this directory. I made the code but it doesnt work.

C:\Users\kuckam\AppData\Local\IBM\Notes\Data\mail\gdansk

Function GetNSF(ByRef strFileName As String) As Boolean


On Error Resume Next
strFileName = Dir(Environ("COMPUTERNAME") & "\Local\IBM\Notes\Data\Mail\gdansk\*.nsf")

GetNSF = (strFileName <> vbNullString)

End Function

Sub test()


Dim strFileName As String
If GetNSF(strFileName) Then
Debug.Print strFileName
End If

End Sub

Hi eurano,

How about something like this to get you started?

Sub LoopThroughFileNames()
' Define variable
Dim FileName As Variant
    ' For each file in the specified folder
   FileName = Dir("C:\Users\kuckam\AppData\Local\IBM\Notes\Data\mail\gdansk\")
   ' If the filename is not nothing then...
   While (FileName <> "")
        ' If the last 4 characters of the filename are .nsf then...
        If Right(FileName, 4) = ".nsf" Then
            ' Display a message box of that file name
            MsgBox FileName
            ' Exit the sub early
            Exit Sub
        End If
     FileName = Dir
  Wend
End Sub

 

[steve the fish]

Heres another using the Dir method:

Function GetNSF() As Variant

strFileName = Dir("C:\Users\" & Environ("Username") & "\Local\IBM\Notes\Data\Mail\gdansk\*.nsf")

If Len(strFileName) = 0 Then
    GetNSF = CVErr(xlErrNA)
Else
    GetNSF = strFileName
End If

End Function

 

[eurano]

works perfectly thanks man!!