when I run the code below I get the result pk??? but what does it mean ? it should echo all the value's in the xlsx
Option Explicit 'Force explicit variable declaration
'decales variable
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim strPath, RootFolder, objFolder, colFiles...
thnx guys, the problem is solved. it now works perfectly. here is the script wich is working:
Option Explicit 'Force explicit variable declaration
'declare variable
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim sourceFolder : sourceFolder = Array ("D:\sourceFolder...
well... i already found out that the problem lies in the destinationfolder where you wan't to copy to
'
example:
fso.CopyFile dubble(sourceFolder(RFcounter) & "\" & file), dubble(targetFolderFTP(RFcounter)) & "\" & file 'Moves files
dubble(sourceFolder(RFcounter) & "\" & file) =...
ok..
first its echo's all the files in the direcorty's (that are in the array).
then it checks if the file exits and if it exits it delete's it at the targetfolder
after that its checking if the file extension is .TIF
if its a .Tif file it should run one of the two subs (methodOne & methodTwo)...
ok.. its seems you are wright, you don't need it to be double quoted. for the fso.fileexists. However, when you call the sub methodOne() and sub methodTwo() it doen't copy. what ever i try just the both code doesn't work:
'Movefiles
Sub moveBestanden()
fso.MoveFile sourceFolder(RFcounter) &...
it loops to echo all the files in de directory's from the array sourceFolder een & souceFolder Two.
Then it has to check if the file exists in that dictory (the derectory is based on the RFcounter). when it exits it should run the sub deletefilesfromtargetFolder. however its still keeps saying...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.