Minor Change

Added valid file check to the function that retrieves the API key from an external file
6DiegoDiego9 · Jul 19, 2023 · 9d21bf0 · 9d21bf0
1 parent d006c78
commit 9d21bf0
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/OpenAIFrameworkDemo.xlsm b/OpenAIFrameworkDemo.xlsm
diff --git a/clsOpenAI.cls b/clsOpenAI.cls
@@ -454,14 +454,20 @@ Public Sub ClearSettings()
 End Sub
 
 
-Public Function GetReadAPIKeyFromFolder(ByVal strfolderPath As String) As String
+Public Function GetReadAPIKeyFromFolder(ByVal strfolderPath As String, Optional ByVal strDefaultTextFileName As String = "apikey") As String
 'Purpose: Allows retrieval of an API KEY saved in an external file (possibly stored on a drive only the current user can access)
 
     Dim intFileNumber As Integer
     Dim strAPIKey As String
     Dim strFilePath As String
 
-    strFilePath = strfolderPath & "\apikey.txt" ' Construct the full file path
+    strFilePath = strfolderPath & "\" & strDefaultTextFileName & ".txt" ' Construct the full file path
+
+    'check file exists
+    If Dir(strFilePath) = "" Then
+        GetReadAPIKeyFromFolder = Empty
+        Exit Function
+    End If
 
     intFileNumber = FreeFile ' Get the first available file number