0

ユーザーが指定したテキストボックスからユーザーが指定した別の場所にフォルダーをコピーしようとしていますが、このコードはファイルを宛先にコピーするだけで、フォルダーにはコピーしません。Visual Studio 2005 を使用しています。

これが私のコードです：

    Dim strDate As String
    strDate = DateTime.Now.ToString("yyyy-MM-dd")

    Dim sFolderpath
    Dim dFolderpath
    Dim fs

    fs = CreateObject("Scripting.FileSystemObject")
    sFolderpath = TextBox1.Text
    dFolderpath = TextBox6.Text + "\"
    fs.createfolder(dFolderpath & strDate)
    fs.copyfolder(sFolderpath, dFolderpath & strDate)
  • 最初に、スクリプトは textbox1 でユーザーが指定した宛先にフォルダーを作成し、今日の日付にちなんで名前を付けます
  • 次に、ユーザーが textbox6 で指定した宛先からフォルダーをコピーしたいと思います

フォルダー自体ではなく、ファイルを宛先にコピーするだけです。textbox1 の値 = C:\Test\Test2. textbox6 の値 = K:\Backup

助けてください！

4

1 に答える 1

2

VB.Net と VBScript の奇妙な組み合わせです...

私は~思う~しかし、これはあなたが求めているものです:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim fs As Object = CreateObject("Scripting.FileSystemObject")

    Dim sFolderpath As String = TextBox1.Text
    Dim sourceFolderName As String = System.IO.Path.GetFileName(sFolderpath)

    Dim strDate As String = DateTime.Now.ToString("yyyy-MM-dd")
    Dim dFolderpath As String = System.IO.Path.Combine(TextBox6.Text, strDate)
    fs.createfolder(dFolderpath)
    dFolderpath = System.IO.Path.Combine(dFolderpath, sourceFolderName)
    fs.createfolder(dFolderpath)

    fs.copyfolder(sFolderpath, dFolderpath)
End Sub

これにも興味があるかもしれません。

于 2013-07-09T14:51:53.027 に答える