A\u015fa\u011f\u0131daki kod ile bir klas\u00f6rde bulunan t\u00fcm dosyalar\u0131 zip olarak ar\u015fivleyebilirsiniz. Bu \u00f6zellik 5.5.1 versiyonu ve sonras\u0131nda kullan\u0131labilir.<\/p>\n
Imports System
\nImports System.IO
\nImports System.Windows.Forms
\nImports Microsoft.VisualBasic<\/p>\n
Namespace WinTr
\nPublic Class MainClass
\nPublic Sub Load()
\nDim FolderName As String = “C:\\Users\\Scada\\Desktop\\NewSCADA\\”
\nDim DirectoryPathInArchive As String = “”
\nDim Files() As String = IO.Directory.GetFiles(FolderName)
\nIf Files.Length > 0 Then
\nUsing zip As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile
\nzip.UseUnicodeAsNecessary = True
\nFor Each FileName As String In Files
\nzip.AddFile(FileName, DirectoryPathInArchive)
\nNext
\nzip.Save(FolderName & “MyZipFile.zip”)
\nEnd Using
\nEnd If
\nEnd Sub
\nEnd Class
\nEnd Namespace<\/p>\n","protected":false},"excerpt":{"rendered":"
A\u015fa\u011f\u0131daki kod ile bir klas\u00f6rde bulunan t\u00fcm dosyalar\u0131 zip olarak ar\u015fivleyebilirsiniz. Bu \u00f6zellik 5.5.1 versiyonu ve sonras\u0131nda kullan\u0131labilir. Imports System Imports System.IO Imports System.Windows.Forms Imports Microsoft.VisualBasic Namespace WinTr Public Class MainClass Public Sub Load() Dim FolderName As String = “C:\\Users\\Scada\\Desktop\\NewSCADA\\” Dim DirectoryPathInArchive As String = “” Dim Files() As String = IO.Directory.GetFiles(FolderName) If Files.Length > […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[20],"tags":[366,367,365],"class_list":["post-865","post","type-post","status-publish","format-standard","hentry","category-scada-script","tag-arsiv","tag-sikistirma","tag-zip"],"yoast_head":"\n