Archives
Trending
Support
Login
clear text
XML
Django
JavaScript
MATLAB
C
C++
C#
Python
SQL
Shell
Bash
Markdown
YAML
JSON
HTML
CSS
PHP
Java
Ruby
Go
Rust
Swift
Kotlin
Arduino
TypeScript
Perl
Autohotkey
Lua
SQF
R
Scala
Haskell
Groovy
Dart
Clojure
VB.NET
Objective-C
PowerShell
Bash
CoffeeScript
Verilog
'Loops through all sub directories and writes to all files Set objFSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next objStartFolder = "c:\MyDir" Set objFolder = objFSO.GetFolder(objStartFolder) Set colFiles = objFolder.Files For Each objFile in colFiles On Error Resume Next Set File = objFSO.CreateTextFile(objFile,True) File.Write "..." File.Close On Error GoTo 0 Next ShowSubfolders objFSO.GetFolder(objStartFolder) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders On Error Resume Next Set objFolder = objFSO.GetFolder(Subfolder.Path) Set colFiles = objFolder.Files For Each objFile in colFiles On Error Resume Next Set File = objFSO.CreateTextFile(objFile,True) File.Write "..." File.Close On Error GoTo 0 Next ShowSubFolders Subfolder On Error GoTo 0 Next End Sub
Mark as private (unlisted)
for 30 minutes
for 6 hours
for 1 day
for 1 week
for 1 month
for 1 year
everlasting (like CCCP)
