Imports System.IO
Module Module1
Sub Main()
' 定义文件夹路径和文件名
Dim cDrivePath As String = "C:\"
Dim templetsFolderPath As String = Path.Combine(cDrivePath, "Templets")
Dim testFileName As String = "TEST.xlt"
Dim testFilePath As String = Path.Combine(templetsFolderPath, testFileName)
' 判断Templets文件夹是否存在,如果不存在则创建
If Not Directory.Exists(templetsFolderPath) Then
Directory.CreateDirectory(templetsFolderPath)
Console.WriteLine("Templets文件夹已创建")
End If
' 判断TEST.xlt文件是否存在,如果不存在则创建
If Not File.Exists(testFilePath) Then
' 这里可以添加创建TEST.xlt文件的代码
' 例如,可以使用File.Create方法创建一个空文件
File.Create(testFilePath).Close()
Console.WriteLine("TEST.xlt文件已创建")
Else
Console.WriteLine("TEST.xlt文件已存在")
End If
Console.ReadLine()
End Sub
End Module
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 25岁的心里话
· 闲置电脑爆改个人服务器(超详细) #公网映射 #Vmware虚拟网络编辑器
· 基于 Docker 搭建 FRP 内网穿透开源项目(很简单哒)
· 零经验选手,Compose 一天开发一款小游戏!
· 一起来玩mcp_server_sqlite,让AI帮你做增删改查!!