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 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
To get free Drive Space in C# and VB.NET you can use the following snippet.
[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Auto)]
[return: MarshalAs(UnmanagedType.Bool)]
private static extern bool GetDiskFreeSpaceEx(string lpDirectoryName,out ulong lpFreeBytesAvailable,out ulong lpTotalNumberOfBytes,out ulong lpTotalNumberOfFreeBytes);
public static bool GetFreeDriveSpace(string path, out ulong freebytes)
{
if (string.IsNullOrEmpty(path))
{
throw new ArgumentNullException("path");
}
if (!path.EndsWith("\\"))
{
path = String.Concat(path, "\\");
}
ulong lpFreeBytesAvailable;
ulong lpTotalNumberOfBytes;
ulong lpTotalNumberOfFreeBytes;
if (GetDiskFreeSpaceEx(path, out lpFreeBytesAvailable, out lpTotalNumberOfBytes, out lpTotalNumberOfFreeBytes))
{
freebytes = lpFreeBytesAvailable;
return true;
}
freebytes = 0;
return false;
}
<DllImport("kernel32.dll", SetLastError := True, CharSet := CharSet.Auto)> _
Private Shared Function GetDiskFreeSpaceEx(lpDirectoryName As String, ByRef lpFreeBytesAvailable As ULong, ByRef lpTotalNumberOfBytes As ULong, ByRef lpTotalNumberOfFreeBytes As ULong) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Public Shared Function GetFreeDriveSpace(path As String, ByRef freebytes As ULong) As Boolean
If String.IsNullOrEmpty(path) Then
Throw New ArgumentNullException("path")
End If
If Not path.EndsWith("\") Then
path = [String].Concat(path, "\")
End If
Dim lpFreeBytesAvailable As ULong
Dim lpTotalNumberOfBytes As ULong
Dim lpTotalNumberOfFreeBytes As ULong
If GetDiskFreeSpaceEx(path, lpFreeBytesAvailable, lpTotalNumberOfBytes, lpTotalNumberOfFreeBytes) Then
freebytes = lpFreeBytesAvailable
Return True
End If
freebytes = 0
Return False
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 set the start location of FolderBrowserDialog in C# and VB.NET you can use the following snippet.
To do so, simply set the SelectedPath Value to the path you want.
MyFolderBrowserDialog.SelectedPath = @"C:\Test";
MyFolderBrowserDialog.SelectedPath = "C:\Test"
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