Folder Create fails on Run, works after Build

Not sure why this code is failing on Run environs but works on a compiled version:

Var f As FolderItem
Var g As FolderItem
Var h As FolderItem
Var filename As String
Var fp1 As String
Var fp2 As String
Var cs1 As Integer
Var d10 As String
Var m10 As String

cs1 = 0

If rday < 10 Then
  d10 = "0" + rday.ToString
End If

If rmonth < 10 Then
  m10 = "0" + rmonth.ToString
End If

filename = uid.ToString + " " + ryear.ToString + "-" + m10 + "-" + d10 + " " + send.ToString + ".txt"
fp1 = ryear.ToString + "-" + m10
fp2 = ryear.ToString + "-" + m10 + "-" + d10

f = New FolderItem("Logs")
g = f.Child(fp1)
h = f.Child(fp1).Child(fp2)

If f <> Nil And f.Exists And f.IsFolder Then
Else
  Try
    f.CreateFolder
  Catch ee As RuntimeException
    cs1 = 0
  End Try
End If


If g <> Nil And g.Exists And g.IsFolder Then
Else
  Try
    g.CreateFolder
  Catch ee As RuntimeException
    cs1 = 0
  End Try
End If

If h <> Nil And h.Exists And h.IsFolder Then
  cs1 = 1
Else
  Try
    h.CreateFolder
    cs1 = 1
  Catch ee As RuntimeException
    cs1 = 0
  End Try
End If

This is frustrating.

3 posts - 2 participants

Read full topic