code Vb นะ มีcopy delete ค้นหาคงใช้ได้นะ Option Explicit On Option Strict On Imports System.IO Imports System.Text Imports System.Data Imports System.Data.SqlClient Imports System.Diagnostics Imports System.Windows.Forms.Design Public Class Form1
Private Sub cmdBrows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBrows.Click Dim objOpenFileDialog As New OpenFileDialog Try If objOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Me.txtPathFile.Text = objOpenFileDialog.FileName End If Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub
Private Sub cmdOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpenFile.Click Dim Proc As New System.Diagnostics.Process Process.Start(txtPathFile.Text) End Sub
Private Sub Bsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bsave.Click Dim FileToCopy As String Dim NewCopy As String
New Article
อัตราค่าโฆษณา
กระทู้ #2718 [Vb] (จาก IP: 58.181.157.122)
ความคิดเห็น #27741 (จาก IP: 203.146.6.86)
