Check if a File Exists

Here is a quick script to check if a file exists.

Sub TestForFileSubroutine() 

   ‘Create a File System Object 
  Set objFSO = CreateObject("Scripting.FileSystemObject")

   ‘Set a variable that points to the File
   cFilePathAndName = “c:\TEMP\MyFileName.TXT”

   ‘Does the file exist?
   If Not objFSO.FileExists(cFilePathAndName) Then
       MsgBox "FILE DOES NOT EXIST!"
       Exit Sub
   End If
 
   ‘Do a little clean up and delete the File System Object
   Set objFSO = Nothing

End Sub

Get the Logged in Users Name

To get the name of the currently logged in user, you need to first, create a function to call a Windows API function to get the user name.  The function looks like this;

 

 'Define the Window API Function
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 

'This is Function Returns the user name of the currently logged in user
'This works in Windows 95, XP and Vista
Function ReturnUserName() As String
Dim rString As String * 255, sLen As Long, tString As String
    tString = ""
    On Error Resume Next
    sLen = GetUserName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
    Else
        tString = rString
    End If
    On Error GoTo 0
    ReturnUserName = UCase(Trim(tString))
End Function

 

Next, within your macro code, call the function and the username will be returned in a variable.  For example;

 

cUser = ReturnUserName()

 

...will return the username in a variable called cUser.