A\u015fa\u011f\u0131daki kod ile bir klas\u00f6r i\u00e7erisindeki t\u00fcm dosyalar, yeni olu\u015fturulan bir klas\u00f6re ta\u015f\u0131n\u0131r.<\/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 Files() As String = IO.Directory.GetFiles(“C:\\Users\\Scada\\Desktop\\NewSCADA”)
\nIf Files.Length > 0 Then
\nDim MyPath As String = “C:\\Users\\Scada\\Desktop\\NewSCADA\\NewDirectory”
\nIf (Not System.IO.Directory.Exists(MyPath)) Then
\nSystem.IO.Directory.CreateDirectory(MyPath)
\nEnd If
\nFor Each FileName As String In Files
\nDim Path() As String = Split(FileName, “\\”)
\nFile.Copy(FileName, MyPath & “\\” & Path(Path.Length – 1), True)
\nFile.Delete(FileName)
\nNext
\nEnd If
\nEnd Sub
\nEnd Class
\nEnd Namespace<\/p>\n","protected":false},"excerpt":{"rendered":"
A\u015fa\u011f\u0131daki kod ile bir klas\u00f6r i\u00e7erisindeki t\u00fcm dosyalar, yeni olu\u015fturulan bir klas\u00f6re ta\u015f\u0131n\u0131r. Imports System Imports System.IO Imports System.Windows.Forms Imports Microsoft.VisualBasic Namespace WinTr Public Class MainClass Public Sub Load() Dim Files() As String = IO.Directory.GetFiles(“C:\\Users\\Scada\\Desktop\\NewSCADA”) If Files.Length > 0 Then Dim MyPath As String = “C:\\Users\\Scada\\Desktop\\NewSCADA\\NewDirectory” If (Not System.IO.Directory.Exists(MyPath)) Then System.IO.Directory.CreateDirectory(MyPath) End If For Each […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_swpsp_post_exclude":false,"footnotes":""},"categories":[20],"tags":[370,371,368,369],"class_list":["post-868","post","type-post","status-publish","format-standard","hentry","category-scada-script","tag-copy","tag-delete","tag-dosya-kopyalama","tag-file"],"yoast_head":"\n