operating_systems:microsoft:vsreplace
Differences
This shows you the differences between two versions of the page.
Next revision | Previous revisionLast revisionBoth sides next revision | ||
operating_systems:microsoft:vsreplace [2013/05/14 15:16] – created sbolay | operating_systems:microsoft:vsreplace [2013/05/14 15:22] – sbolay | ||
---|---|---|---|
Line 1: | Line 1: | ||
====== VSReplace ====== | ====== VSReplace ====== | ||
- | < | + | < |
Attribute VB_Name = " | Attribute VB_Name = " | ||
' | ' | ||
Line 7: | Line 7: | ||
'Last update: may 14, 2013 | 'Last update: may 14, 2013 | ||
+ | ' | ||
Public Sub VSReplace() | Public Sub VSReplace() | ||
Dim Directory As String | Dim Directory As String | ||
Line 16: | Line 17: | ||
FType = " | FType = " | ||
- | |||
Dim vFile As Variant | Dim vFile As Variant | ||
Line 33: | Line 33: | ||
End Sub | End Sub | ||
+ | 'From http:// | ||
Public Function RecursiveDir(colFiles As Collection, _ | Public Function RecursiveDir(colFiles As Collection, _ | ||
| | ||
Line 70: | Line 71: | ||
End Function | End Function | ||
+ | 'From http:// | ||
Public Function TrailingSlash(strFolder As String) As String | Public Function TrailingSlash(strFolder As String) As String | ||
If Len(strFolder) > 0 Then | If Len(strFolder) > 0 Then | ||
Line 80: | Line 82: | ||
End Function | End Function | ||
+ | ' | ||
Public Function FindAndReplace() | Public Function FindAndReplace() | ||
operating_systems/microsoft/vsreplace.txt · Last modified: 2013/05/14 15:29 by sbolay