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:
To extract (unzip) a password protected zip file using the Ionic DotNetZip Library, you can use the snippet below.
[tab name=”C# Sample”]
|
1 2 3 4 5 6 7 8 9 10 11 |
string zipFile = @"C:\Users\Fesslersoft\Desktop\ZipTest\Test.zip"; string targetDirectory = @"C:\Users\Fesslersoft\Desktop\ZipTest\"; using (Ionic.Zip.ZipFile zip = Ionic.Zip.ZipFile.Read(zipFile)) { zip.Password = "1234"; zip.ExtractAll(targetDirectory, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite); } Console.WriteLine("Zip file has been successfully extracted."); Console.Read(); |
[/tab]
[tab name=”VB.NET Sample”]
|
1 2 3 4 5 6 7 8 9 10 |
Dim zipFile As String = "C:\Users\Fesslersoft\Desktop\ZipTest\Test.zip" Dim targetDirectory As String = "C:\Users\Fesslersoft\Desktop\ZipTest\" Using zip As Ionic.Zip.ZipFile = Ionic.Zip.ZipFile.Read(zipFile) zip.Password = "1234" zip.ExtractAll(targetDirectory, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite) End Using Console.WriteLine("Zip file has been successfully extracted.") Console.Read() |
[/tab]
[end_tabset]
If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.
Related links:
to delete .svn files and folders using Windows Batch Script you can use the following snippet.
FOR /R "C:\Users\CodeSnippets.Fesslersoft.de\Documents\Visual Studio 2013\Projects\ConsoleApplication" %%X IN (.svn) DO (RD /S /Q "%%X" 2>nul)
Replace C:\Users\CodeSnippets.Fesslersoft.de\Documents\Visual Studio 2013\Projects\ConsoleApplication with your Solution’s Path.
To load project references from a sub directory in C# and VB.NET you simply need to add the
<configuration>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<probing privatePath="bin;bin2\subbin;bin3"/>
</assemblyBinding>
</runtime>
</configuration>
To check if a path is a Directory in Python you can use the snippet below.
import os
print(os.path.isdir("/myfolder/folder1"))
To check if Folder exists in Python you can use the snippet below.
import os
print(os.path.exists("/myfolder/folder1"))
To check if Directory has Files in C# and VB.NET you can use the following snippet.
public static bool HasFilesInFolder(DirectoryInfo folder)
{
return folder.GetFiles("*.*").Any();
}
Public Shared Function HasFilesInFolder(folder As DirectoryInfo) As Boolean
Return folder.GetFiles("*.*").Any()
End Function
How to copy a Folder/Directory recursive in C# and VB.NET.
public void RecursiveFolderCopy(string sourceDirectory, string destinationDirectory, bool recursive)
{
var dir = new DirectoryInfo(sourceDirectory);
var dirs = dir.GetDirectories();
if (!dir.Exists)
{
throw new DirectoryNotFoundException(
String.Format("Source directory {0} does not exist!",
sourceDirectory));
}
if (!Directory.Exists(destinationDirectory))
{
Directory.CreateDirectory(destinationDirectory);
}
var files = dir.GetFiles();
foreach (var file in files)
{
var temppath = Path.Combine(destinationDirectory, file.Name);
file.CopyTo(temppath, false);
}
if (!recursive)
{
return;
}
foreach (var subdir in dirs)
{
var temppath = Path.Combine(destinationDirectory, subdir.Name);
RecursiveFolderCopy(subdir.FullName, temppath, recursive);
}
}
Public Sub RecursiveFolderCopy(ByVal sourceDirectory As String, ByVal destinationDirectory As String, ByVal recursive As Boolean)
Dim dir As var = New DirectoryInfo(sourceDirectory)
Dim dirs As var = dir.GetDirectories
If Not dir.Exists Then
Throw New DirectoryNotFoundException(String.Format("Source directory {0} does not exist!", sourceDirectory))
End If
If Not Directory.Exists(destinationDirectory) Then
Directory.CreateDirectory(destinationDirectory)
End If
Dim files As var = dir.GetFiles
For Each file As var In files
Dim temppath As var = Path.Combine(destinationDirectory, file.Name)
file.CopyTo(temppath, false)
Next
If Not recursive Then
Return
End If
For Each subdir As var In dirs
Dim temppath As var = Path.Combine(destinationDirectory, subdir.Name)
RecursiveFolderCopy(subdir.FullName, temppath, recursive)
Next
End Sub
To process all files in a directory in Python you can use the following snippet.
import os
for filename in os.listdir(dirname):
# do something
pass
To delete a folder in Ruby you can use the following snippet.
import os os.rmdir(ourdir) #use with an empty dir import shutil shutil.rmtree(ourdir) #use with a non empty dir