如何在Sub语句中使用文本框中的文本

Question

我有一条file.copy语句，其中“路径”的一部分必须是文本框中的内容，而不是硬编码

File.Copy("\\NetworkComputer1\mall\Productionx64\productdesigner.cfg", "c:\mall\NetworkComputer1_productdesingner.cfg", True)

在上面，我需要NetworkComputer1作为表单上特定文本框的值。

有人可以帮我吗？

Answer 1

2个路径（起点和终点）只是字符串。我个人喜欢使用变量，而不是将完整路径放在file.copy中，因为它易于阅读。

Dim FileOrigin as String
Dim FileDestination as String

'adjust the next line based on how the computer name is displayed on the textbox and
'also the name of the textbox itself replacing Textbox1 for the ID of the Textbox.

FileOrigin = "\\" & Textbox1.Text & "\mall\Productionx64\productdesigner.cfg"
FileDestination = "c:\mall\NetworkComputer1_productdesingner.cfg"

File.Copy(FileOrigin, FileDestination, True)