神魂顛倒論壇-Flash http://bbs.flash2u.com.tw

神魂顛倒論壇 是專注於視覺/WEB應用開發的論壇
共1 則內容, 每頁顯示 10 則, 頁碼: [1]
[瀏覽完整版]

標題:[原創]VB.net?听文件?的文件并改名

1樓
liujieheng 發表於:2014-1-16 11:20:00
  ?源:flash,as,js?趣?好者VB.net?听文件?的文件并改名     Module Module1
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Dim wjj
    Sub Main()
    aaa()
    End Sub
    
    Sub aaa()
    Dim sourcefolder
    Dim targetfolder
    wjj = CreateObject("Scripting.FileSystemObject")
    FileOpen(1, "source_target.txt", OpenMode.Input)
    sourcefolder = LineInput(1)
    targetfolder = LineInput(1)
    FileClose()
    qiantao(sourcefolder, targetfolder)
    
    wjj = Nothing
    End Sub
    Sub qiantao(ByVal folderbuf, ByVal targetbuf)
    Dim aa
    If Mid(folderbuf, Len(folderbuf)) <> "/" Or Mid(folderbuf, Len(folderbuf)) <> "\" Then
    folderbuf = folderbuf & "-:special:1:-
    End If
    If Mid(targetbuf, Len(targetbuf)) <> "/" Or Mid(targetbuf, Len(targetbuf)) <> "-:special:1:- Then
    targetbuf = targetbuf & "-:special:1:-
    End If
    Dim cc(1000)
    Dim e
    Dim z
    Dim s
    Dim f
    Dim b
    e = 1
    z = folderbuf
    s = Dir(folderbuf, vbNormal)
    Do While s <> ""
    b = s
    If InStr(s, "old") = 0 Then
    aa = copy_func(folderbuf, b, targetbuf)
    End If
    s = Dir()
    
    Loop
  
共1 則內容, 每頁顯示 10 則, 頁碼: [1]

言論純屬發表者個人意見,與本論壇立場無關,文章版權歸原作者所有,禁止未授權轉載。
不歡迎非法軟體,序號,及受著作權法保護的文章等資訊
論壇內容為使用者即時上載,論壇與本人將不對任何資源或內容負起任何相關法律責任
法律顧問:台灣法律網 劉孟錦律師
內容不當投訴,請電郵至flash2u@gmail.com

Powered By 神魂顛倒 Version 8.2.0
Processed in .07813 s, 2 queries.