Happy Codings - Programming Code Examples

Html Css Web Design Sample Codes

CPlusPlus Programming Sample Codes

JavaScript Programming Sample Codes

C Programming Sample Codes

CSharp Programming Sample Codes

Java Programming Sample Codes

Php Programming Sample Codes

Visual Basic Programming Sample Codes

Visual Basic Programming Code Examples

Visual Basic > ActiveX Controls Code Examples

More To One

More To One

Option Explicit
  Dim fso As New FileSystemObject
  
Private Sub Form_Load()
  Dim strPath As String
  
  strPath = Command()
  If Len(strPath) <> 0 And fso.FolderExists(strPath) Then AddAllFiles strPath

  Unload Me
End Sub

Public Function AddAllFiles(ByVal strLoc As String)
  Dim objFolder As Folder
  Dim AFile As File
  Dim FileNum As Integer, filDesc As Integer
  Dim strOutFile As String, str1 As String, str2 As String

On Error GoTo ErrorHandler
  
  If fso.FolderExists(strLoc) Then
    Set objFolder = fso.GetFolder(strLoc)
    strOutFile = strLoc & "\Total.dat"
    FileNum = FreeFile

    Open strOutFile For Output As #FileNum

      For Each AFile In objFolder.Files
        filDesc = FreeFile
        Open AFile.Path For Input As #filDesc
          Do Until EOF(filDesc)
            Line Input #filDesc, str1
            If Len(str2) = 0 Then
              str2 = str2 & str1
            Else
              str2 = str2 & vbCrLf & str1
            End If
          Loop
          Print #FileNum, str2
        Close #filDesc
        str1 = "": str2 = ""
      Next
    Close #FileNum
  
  Else
    MsgBox "Location " & strLoc & " doesn't exist!", vbCritical, "Function AddAllFiles"
  End If
  
ErrorHandler:
         
End Function

Topological Sortings of a Directed Acyclic - Topological sorting for directed acyclic graph (dag) is a linear ordering of vertices such that for every directed edge 'uv', vertex 'u' comes before v in the ordering. 'Topological Sorting'

C Convert the File Contents in Upper-Case - C Program to read a text file and convert the file contents in capital (Upper-case) and write the contents in a output file. Program to copy contents of one file into another by changing

Implimentation of a list using a Linked List - Operators declared on the type list. Reading a list from input. Writing a list on the output. Gets a list and returns its length. Getting an element and returns its positon in the list. If

Add Two Matrix Using Multi-Dimensional - In this program, user is asked to entered the number of rows r & columns c. The value of r & c should be less than 100 in this program. Then, the program adds these two matrices,

C Delete all occurrences of Character from - We have accept one string from the user and "character to be deleted" from the user. Pass these 'two parameters' to function which will "delete all occurrences" of the character from

Checking Character is Vowel or Consonant - Alphabets a, e, i, o, u are known as vowels. All other alphabets except these 5 alphabets are known are 'consonants'. C++ sample assumes that the user will enter an Alphabet. Similarly

C++ Implements Queue Using Two Stacks - Program to implement queue using stacks. n this method, in en-queue operation, the new element is entered at the top of stack1. In de-queue operation, if "stack2" is empty then all

Goto Statement in The C++ programming - The "goto statement" is used for transferring the control of a program to a given label. The syntax of goto statement looks like this: In a C++ program, we have any "number of goto"