Test Code Tags

[Jfp87]

If Len(arrDocNum(i)) = 16 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & strDocTitle
Else
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & strDocTitle
End If
If Len(strDocTitle) <= 7 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 23 And Len(strDocTitle) <= 30 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 31 And Len(strDocTitle) < 33 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) >= 33 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & txtSub.Value
End If

[Jfp87]

 
If Len(strDocTitle) <= 7 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then
    arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value

This post

[Jfp87]

This post

Post by me

[Jfp87]

This post

Again

[Jfp87]

If Len(strDocTitle) <= 7 Then
arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then
arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value
ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then
arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value

Post by me

[DeepDave]

Test

Dim Req As Object
    Dim sEnv As String
    Dim Resp As New MSXML2.DOMDocument60
    Set Req = CreateObject("MSXML2.XMLHTTP")
    Set Resp = CreateObject("MSXML2.DOMDocument.6.0")

[DeepDave]

Test

Debug.Print Req.responseText

[Jfp87]

  If Not objFSO.FolderExists(strOriginalFolderLocation & Application.PathSeparator & strFolderName) = True Then
    Call NonRecursiveMethod(objFSO, strOriginalFolderLocation)
  End If

[SamT]

Ted,

Posts in the Testing Forum do not add to the member's post count.

[commodity]

Post by me