' Make a complete file name by assemblying its individual parts' if Extension isn't omitted, it overwrites any extension held in BaseNameFunction MakeFileName(Drive As String, Path As String, BaseName As String, _ Optional Extension As String) ' add a trailing colon to the drive name, if needed MakeFileName = Drive & IIf(Right$(Drive, 1) <> ":", ":", "") ' add a trailing backslash to the path, if needed MakeFileName = MakeFileName & Path & IIf(Right$(Path, 1) <> "", "", "") If Len(Extension) = 0 Then ' no extension has been provided MakeFileName = MakeFileName & BaseName ElseIf InStr(BaseName, ".") = 0 Then ' the base name doesn't contain any extension MakeFileName = MakeFileName & BaseName & "." & Extension Else ' we need to drop the extension in the base name Dim i As Long For i = Len(BaseName) To 1 Step -1 If Mid$(BaseName, i, 1) = "." Then MakeFileName = MakeFileName & Left$(BaseName, i) & Extension Exit For End If Next End IfEnd Function
4 Areas of Your Company Where Your Audio Really Matters
February 2, 2023
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a
