Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
[CODE] Dim Files As String() = Directory.GetFiles(StrTempFolderPath) Dim Filename As String Dim File_name As String = "" Dim File_name1 As String = "" For Each Filename In Files File_name = Filename.Substring(Filename.LastIndexOf("\")) File_name1 = File_name.Remove(0, 1) objBaseClass.FileMove(Filename, strPICKDIRpath & "\" & File_name) objBaseClass.Execute_Batch_file(File_name1) Windows.Forms.Application.DoEvents() Public Function Execute_Batch_file(ByVal filename As String) As …
|