fso

    0熱度

    1回答

    我正在使用以下VBSript並且工作正常,但是當我嘗試將其添加到創建的.hta應用程序時,它無法正常工作。 首先,「strValue的」不中MSGBOX顯示其次腳本錯誤出現如「類型不匹配:fso.FolderExists'」 任何幫助,因爲我一直在努力將不勝感激想出解決辦法。 sub LyncFix dim oReg, strKeyPath, strValueName, strValue, o

    0熱度

    1回答

    以下是搜索文件夾中類似「要求」的文件夾的過程。當開始逐步通過時,我收到一條錯誤消息「用戶定義類型未定義」。 我缺少什麼? Sub GetSubFolders() Dim fso As New FileSystemObject, f As Folder, sf As Folder, myFile As File Set f = fso.GetFolder("C:\Users\C58227\De

    0熱度

    1回答

    我在寫一個子程序,需要從目錄中的文件中提取文本。例程如下。只要目錄中只有一個文件,它就會工作。當有多個時,它會告訴我Set intFSO = intFSO.OpenTextFile(filePath, 1)下面的一行。 我認爲有一些事情我需要做的重置下一個文件,但我似乎無法弄清楚它是什麼。有小費嗎? Sub ExtractEDI(folPath) Dim sName, fil

    1熱度

    2回答

    我想將文件夾X中的Excel工作簿複製到文件夾Y,並且在文件夾Y中已存在該文件名的文件時,文件未被覆蓋而是給新文件後綴' - 複製',' - 複製(2)'等 - 基本上重新創建複製和粘貼文件夾中的相同文件的手動過程。 我本來以爲會有一個功能,可以讓你做到這一點,但沒有到目前爲止,我已經嘗試似乎符合具體要求: Workbook.SaveAs提示用戶有一條消息,詢問是否該文件應更換 Workbook.

    0熱度

    1回答

    當前有一個使用FSO的工作腳本,,但它也在我的工作目錄中打開.xlsm文件。 我想只打開.txt文件。 我發現這個代碼,應該工作,但是我無法弄清楚如何將其應用到我的情況: Sub test() ' Loop thru all files in the folder folder = ActiveWorkbook.path path = folder & "\*.tx

    2熱度

    1回答

    我正在構建目錄中的文件索引。 第1列與文件夾名稱,第2列與文件名 我已經設法得到實際的文件名和超鏈接的文件名已經。 但我有問題列出列1中的文件的路徑,使用相對路徑,包括其子文件夾。 說我有以下文件夾: 「C:\ users \ ME \ Documents」 該文件夾中有許多子文件夾。 我想要實現的是一個字符串,列出該實際子文件夾的路徑。 例子: "C:\users\ME\Documents\Su

    0熱度

    1回答

    我是VBA的新手,對此程序的任何幫助都非常感謝! 此程序的目標是將網絡中的所有特定文件類型(.pdf)複製到桌面上的文件夾中。但是,(.pdf)文件位於每個文件夾子文件夾中。 如果我有用戶定義文件夾(與許多子文件夾),我想程序將每個.pdf從每個子文件夾複製到目標文件夾。 這是我從瀏覽互聯網到目前爲止所得到的。 Sub Copy_test2() Dim FSO As Object, fld As

    0熱度

    1回答

    我急需幫助,我試圖搜索包含超過5000個pdf的文件夾目錄中的文本字符串,代碼已經過測試並且使用少於100個PDF和它的工作原理,但一旦達到極限,需要花費5-10分鐘才能得出結果。任何幫助非常感謝: '<% 'Search Text Dim strtextToSearch strtextToSearch = Request("TextToSearch") 'Now, we want to

    0熱度

    1回答

    以下代碼將拉入特定文件夾路徑內的所有文件夾。 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("LOCATION") With Worksheets("Sheet1") i = 1 For Each objSubFolder In objFolder.su

    0熱度

    1回答

    在VBScript中,我想知道文件是否存在: Set fso = CreateObject("Scripting.FileSystemObject") If Not (fso.FileExists(file)) Then msg = " doesn't exist." End If 我的文件是內部網絡上。 有沒有辦法來區分: 文件確實不存在 拒絕訪問 我嘗試用fso.OpenTe