Styjun

Are there any efficient algorithms to solve longest path problem in networks with cycles?

Why is the voltage measurement of this circuit different when the switch is on?

Should my manager be aware of private LinkedIn approaches I receive? How to politely have this happen?

Fedora boot screen shows both Fedora logo and Lenovo logo. Why and How?

Why aren't cotton tents more popular?

Iterate over colors on next pie chart with pgf-pie

Fill NAs in R with zero if the next valid data point is more than 2 intervals away

Trainee keeps missing deadlines for independent learning

Why do all the teams that I have worked with always finish a sprint without completion of all the stories?

Can any NP-Complete Problem be solved using at most polynomial space (but while using exponential time?)

The Target Principal Name Is Incorrect. Cannot Generate SSPI Context (SQL or AD Issue)?

Hot coffee brewing solutions for deep woods camping

Can ADFS connect to other SSO services?

Archery in modern conflicts

How to get cool night-vision without lame drawbacks?

Did Karl Marx ever use any example that involved cotton and dollars to illustrate the way capital and surplus value were generated?

STM Microcontroller burns every time

How long would it take to cross the Channel in 1890's?

Has there been any indication at all that further negotiation between the UK and EU is possible?

Intuition for capacitors in series

What are the penalties for overstaying in USA?

Sci fi short story, robot city that nags people about health

Can humans ever directly see a few photons at a time? Can a human see a single photon?

How do I set an alias to a terminal line?

Path not found after copieng files

How do I copy a file in Python?VB script error path Path not found(800A004C)Starting a process in VBS: path not foundCopying 2 files into a path of the current user profileHow to copy MyDocuments files into newly created folder?File found with relative path but not absolute path? (VBS)800A004C Path not foundI am getting path not found error but the path correctVBScript FileSystemObject.CopyFile() to remote computer Path Not FoundPath to VBS scheduled script not found

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

1

0

A list and a target path are passed to a procedure.
The list contains the source paths of the files to be copied.
The For loop runs over the list and passes the source path together with the target path of the vbscript functions CopyFile.

Sub CopyFilesToFolder(ByVal fileList, ByVal path)
 Dim objFSO
 Dim tmpItem

 Set objFSO = CreateObject("Scripting.FileSystemObject")

 DBWMsgBox fileList.Count

 For i = 0 To fileList.Count - 1
 tmpItem = fileList.Item(i)
 MsgBox tmpItem & vbCrLf & path
 objFSO.CopyFile tmpItem, path
 MsgBox "Stop1"
 Next

 Set objFSO = Nothing
End Sub

It works for all elements but for the last element I get a message that the path cannot be found. All files are copied.
The msgbox after the copyfile function works and then I get the following message.

Message: Source: 'Runtime error in Microsoft VBScript' Line: 440 Char:
2 Error: 0 'The path was not found.'
-v

The values for the line and char dont match. The procedure start on line 414 and ends on 433.

The script is called via our PDM system. I don't think it's the PDM system because other scripts work fine.

This is a output of the copyfile function for all files in the list:

objFSO.CopyFile S:**************8-300618-30061-0369.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-280918-28091-1431.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121418-12141-6853.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile s:**************8-121218-12121-0673.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-300618-30061-0369.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-280918-28091-1431.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121418-12141-6853.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121218-12121-0673.XLS, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-300618-30061-0369.XLS, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

arraylist vbscript file-copying

share|improve this question

edited Mar 25 at 9:50

Obi8

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Any chance for a blank entry in the list?
  
  – SearchAndResQ
  Mar 25 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I dont thin so. The list have 9 elements and 9 files are copied.
  
  – Obi8
  Mar 25 at 10:23
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Sorry my mistake. You are right SearchAndResQ. The list 10 elements not 9. The last element ist a blank entry. Thank you. I was blind. :-D
  
  – Obi8
  Mar 25 at 12:33
  

  
  
  
  

add a comment | 

1

0

A list and a target path are passed to a procedure.
The list contains the source paths of the files to be copied.
The For loop runs over the list and passes the source path together with the target path of the vbscript functions CopyFile.

Sub CopyFilesToFolder(ByVal fileList, ByVal path)
 Dim objFSO
 Dim tmpItem

 Set objFSO = CreateObject("Scripting.FileSystemObject")

 DBWMsgBox fileList.Count

 For i = 0 To fileList.Count - 1
 tmpItem = fileList.Item(i)
 MsgBox tmpItem & vbCrLf & path
 objFSO.CopyFile tmpItem, path
 MsgBox "Stop1"
 Next

 Set objFSO = Nothing
End Sub

It works for all elements but for the last element I get a message that the path cannot be found. All files are copied.
The msgbox after the copyfile function works and then I get the following message.

Message: Source: 'Runtime error in Microsoft VBScript' Line: 440 Char:
2 Error: 0 'The path was not found.'
-v

The values for the line and char dont match. The procedure start on line 414 and ends on 433.

The script is called via our PDM system. I don't think it's the PDM system because other scripts work fine.

This is a output of the copyfile function for all files in the list:

objFSO.CopyFile S:**************8-300618-30061-0369.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-280918-28091-1431.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121418-12141-6853.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile s:**************8-121218-12121-0673.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-300618-30061-0369.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-280918-28091-1431.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121418-12141-6853.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121218-12121-0673.XLS, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-300618-30061-0369.XLS, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

arraylist vbscript file-copying

share|improve this question

edited Mar 25 at 9:50

Obi8

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Any chance for a blank entry in the list?
  
  – SearchAndResQ
  Mar 25 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I dont thin so. The list have 9 elements and 9 files are copied.
  
  – Obi8
  Mar 25 at 10:23
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Sorry my mistake. You are right SearchAndResQ. The list 10 elements not 9. The last element ist a blank entry. Thank you. I was blind. :-D
  
  – Obi8
  Mar 25 at 12:33
  

  
  
  
  

add a comment | 

A list and a target path are passed to a procedure.
The list contains the source paths of the files to be copied.
The For loop runs over the list and passes the source path together with the target path of the vbscript functions CopyFile.

Sub CopyFilesToFolder(ByVal fileList, ByVal path)
 Dim objFSO
 Dim tmpItem

 Set objFSO = CreateObject("Scripting.FileSystemObject")

 DBWMsgBox fileList.Count

 For i = 0 To fileList.Count - 1
 tmpItem = fileList.Item(i)
 MsgBox tmpItem & vbCrLf & path
 objFSO.CopyFile tmpItem, path
 MsgBox "Stop1"
 Next

 Set objFSO = Nothing
End Sub

It works for all elements but for the last element I get a message that the path cannot be found. All files are copied.
The msgbox after the copyfile function works and then I get the following message.

Message: Source: 'Runtime error in Microsoft VBScript' Line: 440 Char:
2 Error: 0 'The path was not found.'
-v

The values for the line and char dont match. The procedure start on line 414 and ends on 433.

The script is called via our PDM system. I don't think it's the PDM system because other scripts work fine.

This is a output of the copyfile function for all files in the list:

objFSO.CopyFile S:**************8-300618-30061-0369.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-280918-28091-1431.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121418-12141-6853.DXF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile s:**************8-121218-12121-0673.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-300618-30061-0369.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-280918-28091-1431.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121418-12141-6853.PDF, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-121218-12121-0673.XLS, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

objFSO.CopyFile S:**************8-300618-30061-0369.XLS, C:Users*******Desktop8-12121-0673_Gesamt_DXF-PDF-XLS

arraylist vbscript file-copying

share|improve this question

edited Mar 25 at 9:50

Obi8

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges

Sub CopyFilesToFolder(ByVal fileList, ByVal path)
 Dim objFSO
 Dim tmpItem

 Set objFSO = CreateObject("Scripting.FileSystemObject")

 DBWMsgBox fileList.Count

 For i = 0 To fileList.Count - 1
 tmpItem = fileList.Item(i)
 MsgBox tmpItem & vbCrLf & path
 objFSO.CopyFile tmpItem, path
 MsgBox "Stop1"
 Next

 Set objFSO = Nothing
End Sub

share|improve this question

edited Mar 25 at 9:50

Obi8

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges

share|improve this question

edited Mar 25 at 9:50

Obi8

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges

asked Mar 25 at 9:21

Obi8Obi8

633 bronze badges