用Directory.CreateDirectory即可創(chuàng)建文件夾:
成都創(chuàng)新互聯(lián)是一家專業(yè)從事成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)的品牌網(wǎng)絡(luò)公司。如今是成都地區(qū)具影響力的網(wǎng)站設(shè)計(jì)公司,作為專業(yè)的成都網(wǎng)站建設(shè)公司,成都創(chuàng)新互聯(lián)依托強(qiáng)大的技術(shù)實(shí)力、以及多年的網(wǎng)站運(yùn)營經(jīng)驗(yàn),為您提供專業(yè)的成都網(wǎng)站建設(shè)、營銷型網(wǎng)站建設(shè)及網(wǎng)站設(shè)計(jì)開發(fā)服務(wù)!
'?建立目錄
If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?凱鋒瞎'檢查文件夾是否存在
Directory.CreateDirectory("C:\負(fù)屃\"??基數(shù)TextBox1.Text)??'不存在,創(chuàng)建文件建夾
End?If
你的例子是因?yàn)樯倭艘粋€(gè)"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?盯空Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個(gè)\
End?If
MsgBox("創(chuàng)建成功")
1、簡單的程序,就只要在"File(文件)"菜單下的"Make xxx.exe(生成)",生成的EXE文件和你要用的數(shù)據(jù)庫和其他外部文件一起移植到其他電腦上沒轎,就可以了。
2、復(fù)雜的程序,建議用"打包",打包完以后,在其他電腦上安裝以后再用.打包方法--------打開菜單欄“外接程序”——“外接程序管理器”,選枯鎮(zhèn)肆擇“打包和展開向?qū)А?,選擇“加載/卸載”,確定。在“外接程序管理器”里找到“打包和展開向?qū)А?,打開“打包和展開向?qū)А?,再一步步旅轎進(jìn)行打包就可以生成一個(gè)安裝程序。
Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目錄以便鬧攔用于后續(xù)的刪除示范。
If Not Directory.Exists("D:\網(wǎng)易") Then
Directory.CreateDirectory(" D:\網(wǎng)易 \Test1")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test2")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test3")
End If
' 刪簡高除子目錄 Test1。
Directory.Delete(" D:\網(wǎng)易 \Test1", True)
' 刪除子目錄 Test2。攔彎尺
Dim myDirectoryInfo As New DirectoryInfo(" D:\網(wǎng)易 \Test2")
myDirectoryInfo.Delete(True)
' 將目錄 C:\AlexDirDemo 及其以下的文件和子目錄全數(shù)刪除。
Directory.Delete(" D:\網(wǎng)易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 啟動 Windows 資源管理器。
Process.Start("explorer.exe", "D:\")
End Sub
在程序目錄下生成log目錄,用于保存日志文件。
自動在log目錄中,生成日凳配慧志文棗答件,文件命名用年月日定義,如20100119_log.log。
在日志賣山文件中,每行記錄一個(gè)時(shí)間點(diǎn)的運(yùn)行內(nèi)容,時(shí)間點(diǎn)的精度應(yīng)該達(dá)到毫秒。