Tjyylli

Withdrew £2800, but only £2000 shows as withdrawn on online banking; what are my obligations?

How can I make names more distinctive without making them longer?

How do I stop a creek from eroding my steep embankment?

Sci-Fi book where patients in a coma ward all live in a subconscious world linked together

Do I really need recursive chmod to restrict access to a folder?

Why do we bend a book to keep it straight?

Error "illegal generic type for instanceof" when using local classes

Why am I getting the error "non-boolean type specified in a context where a condition is expected" for this request?

Short Story with Cinderella as a Voo-doo Witch

Fundamental Solution of the Pell Equation

Is there a (better) way to access $wpdb results?

Why is "Consequences inflicted." not a sentence?

What does this icon in iOS Stardew Valley mean?

Overriding an object in memory with placement new

Coloring maths inside a tcolorbox

English words in a non-english sci-fi novel

Is it ethical to give a final exam after the professor has quit before teaching the remaining chapters of the course?

A coin, having probability p of landing heads and probability of q=(1-p) of landing on heads.

How come Sam didn't become Lord of Horn Hill?

porting install scripts : can rpm replace apt?

Can an alien society believe that their star system is the universe?

The logistics of corpse disposal

ListPlot join points by nearest neighbor rather than order

How to find all the available tools in macOS terminal?

I wrote this VBS script to copy “Date Modified” from files in one folder to another but have one query

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}

1

I wrote this VBS code to copy "Date Modified" from files in one folder to another folder.

Dim sOriginFolder, sDestinationFolder, sFile, oFSO, oShell

Set objShell = CreateObject("Shell.Application")



Set objFolder = objShell.NameSpace("C:UsersasdDesktopDestination")



Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oShell = CreateObject("Wscript.Shell")

sOriginFolder = "C:UsersasdDesktopSource"

sDestinationFolder = "C:UsersasdDesktopDestination"





For Each sFile In oFSO.GetFolder(sOriginFolder).Files







            Set objFolderItem = objFolder.ParseName(oFSO.GetFileName(sFile))





            objFolderItem.ModifyDate = FormatDateTime(sFile.DateLastModified,0)









Next 

It works but there is one issue.
If the extension of the file is different, then the script crashes.

How can I fix this?

vbscript

share|improve this question

edited 19 hours ago

user5793353

asked yesterday

user5793353user5793353

83

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  What extensions does it work on, and what does it not work on?
  
  – music2myear
  yesterday
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  It takes the first file name from the source folder and takes its date modified. It takes the first file name from the destination folder and if their names match, it pastes the date modified onto it. Then it will take the second file and do the same. But if the extensions are different, then the program crashes with 'type mismatch'.
  
  – user5793353
  19 hours ago
  

  
  
  
  

add a comment | 

1

I wrote this VBS code to copy "Date Modified" from files in one folder to another folder.

Dim sOriginFolder, sDestinationFolder, sFile, oFSO, oShell

Set objShell = CreateObject("Shell.Application")



Set objFolder = objShell.NameSpace("C:UsersasdDesktopDestination")



Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oShell = CreateObject("Wscript.Shell")

sOriginFolder = "C:UsersasdDesktopSource"

sDestinationFolder = "C:UsersasdDesktopDestination"





For Each sFile In oFSO.GetFolder(sOriginFolder).Files







            Set objFolderItem = objFolder.ParseName(oFSO.GetFileName(sFile))





            objFolderItem.ModifyDate = FormatDateTime(sFile.DateLastModified,0)









Next 

It works but there is one issue.
If the extension of the file is different, then the script crashes.

How can I fix this?

vbscript

share|improve this question

edited 19 hours ago

user5793353

asked yesterday

user5793353user5793353

83

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  What extensions does it work on, and what does it not work on?
  
  – music2myear
  yesterday
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  It takes the first file name from the source folder and takes its date modified. It takes the first file name from the destination folder and if their names match, it pastes the date modified onto it. Then it will take the second file and do the same. But if the extensions are different, then the program crashes with 'type mismatch'.
  
  – user5793353
  19 hours ago
  

  
  
  
  

add a comment | 

I wrote this VBS code to copy "Date Modified" from files in one folder to another folder.

Dim sOriginFolder, sDestinationFolder, sFile, oFSO, oShell

Set objShell = CreateObject("Shell.Application")



Set objFolder = objShell.NameSpace("C:UsersasdDesktopDestination")



Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oShell = CreateObject("Wscript.Shell")

sOriginFolder = "C:UsersasdDesktopSource"

sDestinationFolder = "C:UsersasdDesktopDestination"





For Each sFile In oFSO.GetFolder(sOriginFolder).Files







            Set objFolderItem = objFolder.ParseName(oFSO.GetFileName(sFile))





            objFolderItem.ModifyDate = FormatDateTime(sFile.DateLastModified,0)









Next 

It works but there is one issue.
If the extension of the file is different, then the script crashes.

How can I fix this?

vbscript

share|improve this question

edited 19 hours ago

user5793353

asked yesterday

user5793353user5793353

83

Dim sOriginFolder, sDestinationFolder, sFile, oFSO, oShell

Set objShell = CreateObject("Shell.Application")



Set objFolder = objShell.NameSpace("C:UsersasdDesktopDestination")



Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oShell = CreateObject("Wscript.Shell")

sOriginFolder = "C:UsersasdDesktopSource"

sDestinationFolder = "C:UsersasdDesktopDestination"





For Each sFile In oFSO.GetFolder(sOriginFolder).Files







            Set objFolderItem = objFolder.ParseName(oFSO.GetFileName(sFile))





            objFolderItem.ModifyDate = FormatDateTime(sFile.DateLastModified,0)









Next 

share|improve this question

edited 19 hours ago

user5793353

asked yesterday

user5793353user5793353

83

share|improve this question

edited 19 hours ago

user5793353

asked yesterday

user5793353user5793353

83

asked yesterday

user5793353user5793353

83

asked yesterday

user5793353user5793353

83