神魂顛倒論壇logo

icon
首頁Microsoft 應用技術區Windows 10 作業系統 → [原創]VB.net?听文件?的文件并改名

Silverlight 5 | 雷射溶脂 | 瘦小腹 | 植髮 | 眼袋 | 玻尿酸 | 電波拉皮 | Flash | 購物車 | Flash Player 11.2 | 豐胸 |

下一主題 上一主題


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


[原創]VB.net?听文件?的文件并改名 簡版






  ?源: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
  




減肥診所 | 回到頂部
下一主題 上一主題