Sub CheckIfFileExists()<\/p>\n
Dim LRow As Integer
\nDim LPath As String
\nDim LExtension As String<\/p>\n
Dim LContinue As Boolean
\nDim MPath As Integer
\nDim FNAme As String<\/p>\n
Dim sourceFile As String
\nDim targetFile As String<\/p>\n
Dim fso As Object<\/p>\n
LContinue = True
\nLRow = 2
\nMPath = 2
\nLPath = “C:New Folder”
\nLExtension = “.pdf”<\/p>\n
While LContinue<\/p>\n
If Len(Range(“A” & CStr(LRow)).Value) = 0 Then
\nLContinue = False<\/p>\n
Else<\/p>\n
aa = “C:New Folder”<\/p>\n
Set fso = CreateObject(“Scripting.FileSystemObject”)<\/p>\n
bb = “C:New Folder”<\/p>\n
Set fs = CreateObject(“Scripting.FileSystemObject”)<\/p>\n
bb = bb & “” & Range(“A” & CStr(MPath)).Value
\nbb = bb & “.PDF”<\/p>\n
If fs.FileExists(bb) = True Then<\/p>\n
Range(“B” & CStr(LRow)).Value = “Yes”<\/p>\n
FNAme = Range(“C” & CStr(MPath)).Value
\naa = aa & “” & FNAme<\/p>\n
If fs.FolderExists(aa) = False Then
\nfs.createfolder aa<\/p>\n
End If<\/p>\n
aa = aa & “”
\nfso.MoveFile bb, aa<\/p>\n
End If
\nEnd If<\/p>\n
Set fs = Nothing
\nSet fso = Nothing<\/p>\n
LRow = LRow + 1
\nMPath = MPath + 1
\nWend<\/p>\n
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Sub CheckIfFileExists() Dim LRow As Integer Dim LPath As String Dim LExtension As String Dim LContinue As Boolean Dim MPath As Integer Dim FNAme As String Dim sourceFile As String Dim targetFile As String Dim fso As Object LContinue = True LRow = 2 MPath = 2 LPath = “C:New Folder” LExtension = “.pdf” While … Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[],"tags":[],"class_list":["post-108","post","type-post","status-publish","format-standard","hentry"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/108","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/comments?post=108"}],"version-history":[{"count":1,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/108\/revisions"}],"predecessor-version":[{"id":869,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/108\/revisions\/869"}],"wp:attachment":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/media?parent=108"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/categories?post=108"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/tags?post=108"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}