To get the current path using VBScript you can use the snippet below.
|
1 2 3 4 5 6 7 |
msgbox GetCurrentFolder() Function GetCurrentFolder() Dim FSO Set fso = CreateObject("Scripting.FileSystemObject") GetCurrentFolder= FSO.GetAbsolutePathName(".") End Function |
If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.
Related links:
This snippet let’s you use the Left, Right, Mid methods known from VisualBasic in C# without referencing Microsoft.VisualBasic Namespace.
public static string Left(string input, int index)
{
return input.Substring(0, index);
}
public static string Right(string input, int index)
{
return input.Substring(input.Length - index, index);
}
public static string Mid(string input, int startingIndex, int endingIndex)
{
return input.Substring(startingIndex, endingIndex);
}
public static string Mid(string input, int startingIndex)
{
return input.Substring(startingIndex);
}
Here are three Extension Methods which let you use the Left, Mid and Right Methods from VB6 in C# and VB.NET. The Extension Methods simply wrap the on-board .NET Framework Method Substring. These Extension Methods are now part of the Fesslersoft.Extensions.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
#region using System; #endregion namespace de.Fesslersoft.Extensions { public static class Extensions { public static String Left(this string input, int length) { var result = ""; if ((input.Length <= 0)) return result; if ((length > input.Length)) { length = input.Length; } result = input.Substring(0, length); return result; } public static String Mid(this string input, int start, int length) { var result = ""; if (((input.Length <= 0) || (start >= input.Length))) return result; if ((start + length > input.Length)) { length = (input.Length - start); } result = input.Substring(start, length); return result; } public static String Right(this string input, int length) { var result = ""; if ((input.Length <= 0)) return result; if ((length > input.Length)) { length = input.Length; } result = input.Substring((input.Length - length), length); return result; } } } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
Imports System Namespace de.Fesslersoft.Extensions Public Friend Module Extensions <System.Runtime.CompilerServices.Extension> _ Public Function Left(input As String, length As Integer) As [String] Dim result = "" If (input.Length <= 0) Then Return result End If If (length > input.Length) Then length = input.Length End If result = input.Substring(0, length) Return result End Function <System.Runtime.CompilerServices.Extension> _ Public Function Mid(input As String, start As Integer, length As Integer) As [String] Dim result = "" If ((input.Length <= 0) OrElse (start >= input.Length)) Then Return result End If If (start + length > input.Length) Then length = (input.Length - start) End If result = input.Substring(start, length) Return result End Function <Runtime.CompilerServices.Extension> _ Public Function Right(input As String, length As Integer) As [String] Dim result = "" If (input.Length <= 0) Then Return result End If If (length > input.Length) Then length = input.Length End If result = input.Substring((input.Length - length), length) Return result End Function End Module End Namespace |
If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.
Related links: